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1.0  INTRODUCTION 

This  report  documents  an  effort  to  mathematically  model  the  aerodynamics  involved 
in  the  unsteady  process  of  starting  a  Ludwieg  Tube  wind  tunnel.  In  essence,  the  model 
represents  the  end  product  of  many  people  assimilating  a  large  amount  of  experimental 
data  obtained  from  a  transonic  Ludwieg  tube  facility  and,  thus,  depends  on  several 
experimentally  derived  parameters  and  assumptions.  The  wind  tunnel  configuration  studied 
here  consists  of  a  very  long,  circular  supply  tube  which  contracts  to  a  rectangular, 
porous-walled  test  section.  The  test  section  expands  through  a  diffuser  into  a  valve 
manifold.  Surrounding  the  test  section  is  a  plenum  chamber  with  exhaust  valves  which 
can  be  controlled  independently  of  the  main  valves.  In  addition,  the  plenum  contains 
a  set  of  ejector  flaps  which  allow  the  plenum  to  exhaust  itself  into  the  diffuser. 

When  one  considers  that  larger  scale  transonic  Ludwieg  tube  facilities  would  have  a 
price  of  order  $10,000,000  and  would  produce  a  usable  run  time  of  only  a  few  seconds 
per  run,  it  is  clear  that  considerable  effort  must  be  concentrated  to  ensure  that  the 
tunnel  can  be  started  rapidly  under  a  wide  range  of  operating  conditions.  A  laboratory 
scale  pilot  facility  (Ref.  1)  (known  as  "Pilot  HIRT")  at  Arnold  Engineering  Development 
Center  provides  an  experimental  vehicle  to  measure  the  effects  of  many  of  the  important 
parameters  in  the  tunnel  starting  process  and  to  provide  basic  experimental  data  for 
verification  of  math  models. 

To  clarify  the  need  for  a  mathematical  model  of  starting  such  a  device,  a  brief 
explanation  of  the  tunnel  operation  is  required.  Prior  to  a  run,  the  tunnel  is  pumped 
to  the  desired  charge  pressure  and  temperature.  A  tunnel  run  is  initiated  by  first  opening 
the  main  valves  downstream  of  the  diffuser.  This  opening  process  sends  unsteady  expansion 
waves  up  the  tunnel  to  the  supply  tube.  Were  it  not  for  the  plenum,  the  flow  in  the 
test  section  would  become  steady  soon  after  the  trailing  edge  of  the  unsteady  wave  from 
the  valve,  initiated  by  the  valve  area  becoming  steady,  passed  the  test  section  into  the 
supply  tube.  The  test  section  flow  cannot  become  steady  until  the  plenum  volume  has 
been  exhausted  to  the  point  where  the  summation  of  mass  flow  across  the  porous  wall, 
through  the  flaps,  and  out  the  plenum  exhaust  (dumped  to  atmosphere)  becomes  zero 
and  allows  the  plenum  pressure  to  become  steady.  Since  current  state-of-the-art 
fast-opening  valves  easily  reach  the  required  flow  area  in  advance  of  the  plenum  becoming 
steady,  the  plenum  is  the  primary  limitation  upon  how  quickly  the  tunnel  can  be  started 
and  steady  flow  established  in  the  test  section. 


The  present  model  assumes  that  the  unsteady  expansion  wave  emanating  from  the 
main  valves  propagates  instantaneously  to  all  parts  of  the  wind  tunnel  and  that  property 
variation  within  the  wave  at  any  location  in  the  diffuser,  test  section,  nozzle,  or  supply 
tube  IS  totally  controlled  by  the  area-time  curve  of  the  main  valve.  While  partially  retaining 
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the  effect  of  the  unsteady  wave,  this  assumption  allows  use  of  the  steady  continuity 
equation  in  the  test  section  coupled  with  the  well-known  exact  solution  for 
one-dimensional,  variable  area,  isentropic  flow  (Ref.  2).  Use  of  these  equations  at  any 
instant  requires  a  knowledge  of  stagnation  conditions  driving  the  How,  which  vary  through 
the  nonisentropic  expansion  wave.  Variation  of  the  stagnation  properties  is  computed  via 
the  exact  solution  for  a  one-dimensional  unsteady  wave  in  a  variable  area  duct  (Ref.  3). 
The  unsteadiness  of  the  plenum  is  handled  via  the  unsteady  continuity  equation  by  equating 
the  rate  of  mass  accumulation  in  the  plenum  to  the  summation  of  all  the  flow  rates 
entering  and  leaving  the  plenum.  The  air  in  the  plenum  is  assumed  to  be  a  calorically 
perfect  gas  and  its  temperature  is  assumed  either  isentropic  or  equal  to  the  stagnation 
temperature  of  the  flow  in  the  test  section  (whichever  is  greater),  an  experimentally  based 
assumption.  The  main  valves  are  treated  as  one-dimensional  sonic  orifices  driven  by  the 
stagnation  pressure  and  temperature  of  the  unsteady  wave.  The  plenum  exhaust  valves 
are  handled  similarly  by  assuming  that  the  flow  in  the  plenum  is  stagnant.  Flow  through 
the  ejector  flaps  and  across  the  porous  wall  is  computed  via  an  adaptation  of  the  work 
of  Ref.  4,  which  empirically  corrected  the  flow  rates  with  the  pressure  drops  across  these 
devices. 

In  the  discussion  which  follows,  the  mathematical  model  will  first  be  presented, 
including  a  more  detailed  description  of  the  physical  situation,  the  assumptions  underlying 
the  model,  the  mathematical  formulation,  and  the  solution  procedure.  Next,  the  model 
will  be  compared  with  a  sample  of  experimental  data  from  the  Pilot  HIRT  facility.  The 
appendixes  contain  some  of  the  mathematical  details  and  a  brief  user's  manual  for  the 
computer  program. 


2.0  THE  MATHEMATICAL  MODEL 
2.1  DESCRIPTION  OF  THE  PHYSICAL  SITUATION  TO  BE  MODELED 

All  of  the  essential  features  of  the  proposed  HIRT  facility  which  are  to  be  modeled 
are  given  in  Fig.  1.  The  overall  length  of  the  facility  is  1,880  ft,  and  the  supply  tube 
has  an  inside  diameter  of  1 5  ft.  The  main  valve  system  consists  of  a  number  of  fast-acting 
valves,  and  the  plenum  exhaust  also  requires  a  multiple  valve  system.  The  pilot  facility 
provides  a  precisely  scaled  (1/13)  flow  envelope  but  has  a  single  sliding  sleeve  valve  in 
place  of  the  valve  manifold  of  the  full-scale  tunnel  and  a  single  plenum  exhaust  valve 
fed  by  multiple  tubes  from  the  plenum. 

A  tunnel  run  is  initiated  by  opening  the  main  valves  and  possibly  the  plenum  valves, 
not  necessarily  together  or  in  the  same  length  of  time.  Both  sets  of  valves  send  nonisentropic 
expansion  waves  throughout  the  tunnel  and  primarily  up  the  charge  tube.  The  main  valve 
system  produces  the  steepest  (or  strongest)  wave  because  it  handles  a  much  greater  portion 
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Figure  1.  Major  components  of  the  High  Reynolds  Number  Wind  Tunnel. 

of  the  flow  rate  than  the  plenum  exhaust.  At  any  point  in  the  supply  tube,  the  gas  remains 
totally  stagnant  until  the  first  expansion  wave  reaches  that  point;  and  the  flow  at  that 
point  does  not  become  steady  until  the  last  expansion  wave  passes  the  point.  The  main 
valve  system  sends  out  its  last  expansion  wave  when  the  flow  area  becomes  constant. 
The  plenum  also  continues  to  send  out  expansion  (and  sometimes  compression)  waves 
until  the  plenum  pressure  becomes  steady.  But  the  plenum  does  not  become  steady  until 
the  sum  of  all  the  flows  into  and  out  of  it  are  zero  (Fig.  2),  and  it  invariably  controls 
the  start  time  of  the  tunnel.  Since  the  main  valves  are  rpuch  faster  than  the  plenum 
response,  the  pressure  in  the  test  section  drops  rapidly  below  the  plenum  pressure,  causing 
mass  flow  to  enter  the  test  section  from  the  plenum.  As  the  plenum  gradually  catches 
up  to  the  test  section,  the  wall  crossflow  (across  the  porous  test  section  wall)  gradually 
decreases  and,  in  some  cases,  reverses.  This  process,  coupled  with  the  increasing  main  valve 
area,  gradually  increases  the  flow  rate  drawn  from  the  supply  tube.  However,  the  flow 
rate  from  the  tube  may  continue  to  increase  only  until  the  nozzle  exit  becomes  choked, 
after  which  the  supply  tube  flow  becomes  steady  since  the  choke  point  will  no  longer 
pass  additional  expansion  or  compression  waves  (unless  the  compression  wave  is  strong 
enough  to  unchoke  the  nozzle).  Whether  the  nozzle  eventually  chokes  and  whether  the 
test  section  eventually  steadies  out  to  supersonic  or  subsonic  flow  depends  on  the  relative 
flow  areas  of  the  main  valves,  the  plenum  exhaust  valves,  and  the  test  section,  the  direction 
of  the  flap  and  wall  crossflows,  and  how  the  various  steady  conditions  are  approached 
in  time  relative  to  each  other.  Subsonic  and  very  sUghtly  supersonic  test  section  Mach 
numbers  can  be  obtained  without  steady-state  plenum  exhaust,  though  the  plenum  exhaust 
may  be  opened  temporarily  and  then  closed  in  order  to  reduce  the  starting  time.  For 
subsonic  flows,  the  steady  main  valve  area  -  in  terms  of  the  ideal,  one-dimensional  area 
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at  the  choke  point  -  must  be  as  much  less  than  the  nozzle  area  (where  the  nozzle  meets 
the  entrance  to  the  test  section)  as  is  dictated  by  the  steady  test  section  Mach  number 
to  be  attained  (neglecting  diffuser  losses).  A  slightly  supersonic  test  section  can  be  obtained 
with  a  steady  main  valve  area  greater  than  or  equal  to  the  nozzle  area  if  the  flaps  and 
porosity  are  set  properly,  giving  a  flow  situation  as  follows:  with  the  nozzle  choked  and 
the  plenum  steadied  at  a  pressure  very  near  the  static  test  section  pressure  such  that  the 
static  pressure  and  dynamic  heads  of  the  main  flow  force  a  small  crossflow  into  the  plenum, 
the  net  test  section  flow  decreases  from  the  choked  flow  rate  at  the  nozzle.  The  slightly 
subcritical  flow  rate  leaving  the  test  section  thus  produces  a  slightly  supersonic  condition, 
resulting  in  a  favorable  pressure  gradient  for  the  plenum  to  exhaust  its  incoming  crossflow 
out  the  flaps  and  hence  become  steady.  Normally,  however,  supersonic  conditions  (up 
to  Mach  1 .3  in  the  pilot)  are  obtained  by  having  the  plenum  exhaust  area  become  steady 
at  a  flow  area  sufficient  to  pass  all  of  the  mass  flow  rate  entering  the  plenum  via  wall 
crossflow  and  sometimes  via  reverse  flap  flow. 


f  ^pe 


To  understand  the  flow  in  terms  of  the  mathematical  model,  the  various  flow 
configurations  might  be  best  thought  of  in  terms  of  the  steady  energy  equation  relating 
the  local  pressure  to  the  mass  flux  (Fig.  3).  Subsonic  flows  fall  on  the  branch  to  the 
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right  of  the  choke  point,  supersonic  flows  to  the  left.  In  general,  all  points  in  the  tunnel 
are  initially  at  point  A,  which  corresponds  to  no  flow.  Higher  flow  rates  with 
correspondingly  lower  static  pressures  are  illustrated  by  movement  from  point  A  to  B 
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on  the  energy  equation.  Flows  which  become  subsonically  steady  would  halt  to  the  right 
of  C;  while  for  supersonic  flows,  some  portions  of  the  tunnel  would  proceed  beyond 
C  to  D.  If  the  energy  dome  is  then  plotted  versus  axial  position  in  the  test  section  as 
shown  in  Figs.  4,  5,  and  6,  the  importance  of  the  wall  crossflow  and  the  relative  timewise 
approach  of  various  components  to  their  steady  conditions  may  be  made  clearer.  For 
a  normal  subsonic  run,  Fig.  4  shows  the  energy  dome  at  the  entrance  and  exit  of  the 
test  section.  The  constant  time  contours  are  shown  as  straight  lines  for  purposes  of 
illustration,  though  in  reality  they  would  have  to  be  nonlinear  to  some  degree  in  order 
for  all  points  on  the  contour  to  fall  on  the  surface  of  the  dome  cylinder  and  because 
the  wall  crossflow  does  not  necessarily  vary  hnearly  along  the  test  section.  As  the  flow 
begins,  the  constant  time  contours  do  not  remain  parallel  because  the  flow  rate  leaving 
the  test  section  will  not  balance  that  at  the  entrance,  the  difference  being  the  wall  crossflow. 
For  the  m.ost  probable  case  of  the  plenum  lagging  the  test  section  pressure,  the  crossflow 
will  be  into  the  test  section,  giving  a  greater  flow  rate  at  the  exit  than  at  the  entrance. 
As  time  proceeds,  however,  the  plenum  pressure  eventually  catches  up  to  the  test  section 
so  that  the  contours  do  become  nearly  straight  and  parallel  as  the  crossflow  becomes 
insignificant.  This  process  assumes  that  the  plenum  exhaust,  if  opened,  is  eventually  closed. 
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Figure  4.  Energy  dome  versus  position  in  test  section  for 
normal  subsonic  flow. 


Figure  5.  Energy  dome  versus  position  in  test  section  for 
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If  the  plenum  exhaust  is  not  closed  and  the  steady  main  valve  area  is  sufficiently  large, 
the  supersonic  case  of  Fig.  5  may  result.  The  initial  constant  time  contours  are  similar 
to  the  subsonic  case.  However,  the  origins  of  the  contours  at  the  entrance  eventually 
stop  at  the  peak  of  the  dome  while  at  the  exit  they  proceed  over  the  choke  point  downward 
on  the  supersonic  branch  as  the  crossflow  reverses  from  entering  to  leaving  the  test  section. 
The  contours,  however  well  approximated  by  straight  lines  in  the  subsonic  case,  become 
significantly  nonhnear  for  the  higher  supersonic  Mach  numbers,  as  illustrated  by  the  dotted 
’’real  nonlinear  steady  contour”  in  Fig.  5.  This  results  from  a  combination  of  the  nonlinear 
variation  of  the  wall  crossflow  and  boundary  layer  growth.  These  nonlinear  effects,  though 
certainly  present  in  the  subsonic  case,  are  more  pronounced  in  the  supersonic  case  because 
the  pressure  at  the  nozzle  must  remain  unchanged  at  the  choke  value  while  the  pressure 
at  the  exit  varies  significantly  with  the  exit  Mach  number. 
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Figure  6.  Energy  dome  versus  position  in  test  section  for 
subsonic  flow  with  choked  nozzle. 


The  slopes  of  the  constant  time  contours  in  Figs.  4  and  5  depend  on  the  magnitude 
of  the  wall  crossflow,  which  in  turn  depends  partially  on  the  pressure  difference  between 
the  plenum  and  the  test  section.  Since  the  timewise  variation  of  the  plenum  pressure 
can  be  controlled  by  controlling  the  flow  ai'ea-time  curve  of  the  plenum  exhaust  valves, 
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it  appears  that  the  shortest  starting  time  for  the  tunnel  would  be  obtained  by  controlling 
the  plenum  pressure  to  precisely  follow  the  test  section  pressure  so  that  the  plenum  would 
reach  its  steady  conditions  simultaneously  with  the  main  valve  system.  This  would  result 
in  the  constant  time  contours  remaining  parallel  right  up  to  their  final  position,  or  up 
to  the  choke  point  for  a  supersonic  run.  In  Fig.  6,  the  plenum  is  exhausted  fast  enough 
so  that  the  wall  crossflow  is  always  out  of  the  test  section,  resulting  in  less  flow  rate 
leaving  the  exit  of  the  test  section  than  entering.  Thus,  the  constant  time  contour  at 
the  entrance  dome  reaches  its  peak  while  the  point  on  the  exit  dome  is  forced  by  the 
plenum  exhaust  to  become  steady  before  reaching  the  peak  though  the  desired  steady 
condition  lies  on  the  other  side  of  the  dome  and  cannot  be  reached.  Hence,  it  appears 
that  the  manner  in  which  the  various  portions  of  the  tunnel  approach  their  steady 
conditions  in  time  relative  to  each  other  can  affect  the  final  outcome  of  a  run. 

The  foregoing  discussion  of  the  test  section  flow  in  terms  of  the  energy  domes  serves 
as  an  introduction  to  one  of  the  key  elements  of  the  mathematical  model,  namely,  the 
steady  energy  equation  in  an  unsteady  environment.  The  domes  also  provide  graphic 
visualization  for  the  flow  process. 

2.2  GOAL  OF  THE  MODELING 

The  purpose  of  this  mathematical  model  is  to  study  the  starting  process,  controlled 
by  the  plenum,  in  order  to  size  the  plenum  exhaust  system;  determine  the  effect  upon 
start  time  of  the  interaction  of  the  area-time  curves  of  the  main  valves,  flaps,  and  plenum 
exhaust;  and,  in  general,  to  provide  the  essential  information  necessary  for  trading  off 
facility  cost  and  start  time.  To  provide  this  information,  the  model  must  accept  the 
following  input  data.  The  gross  level  mass  flow  rate  depends  upon  the  cross-sectional 
area  of  the  supply  tube  and  nozzle  exit.  The  geometric  factor,  on  which  the  wall  crossflow 
primarily  depends,  is  the  porosity,  the  fraction  of  the  total  surface  area  of  the  test  section 
walls  drilled  out  to  allow  flow  between  the  test  section  and  plenum.  Thus,  the  dimensions 
of  the  test  sections  and  porosity  must  be  provided  along  with  the  experimentally  derived 
coefficients  for  the  flow  model.  A  key  design  parameter  having  first-order  impact  on  the 
start  time  is  the  plenum  volume  ratioed  to  the  test  section  volume.  The  area-time  curves 
of  the  main  valves,  plenum  exhaust  valves,  and  the  flaps  are  required  along  with  the 
experimental  coefficients  for  the  flap  flow  model.  Finally,  the  characteristics  of  the  gas 
must  be  provided  in  terms  of  the  ideal  gas  constant  and  the  specific  heat  ratio. 

This  input  to  the  model  is  then  used  to  compute  the  following  data  concerning  the 
flow.  As  functions  of  time  the  static  and  stagnation  properities  -  pressure,  density,  and 
temperature  -  along  with  mass  flow  rate  and  Mach  number  are  computed  for  three  stations 
along  the  tunnel  circuit:  the  supply  tube  at  the  nozzle  entrance,  the  test  section  entrance, 


14 


AEDC-TR-76-39 


and  the  test  section  exit.  The  plenum  properties  along  with  the  mass  flux  through  the 
porous  wall,  flaps,  plenum  exhaust,  and  main  valves  are  computed  as  functions  of  time. 

There  are  many  other  considerations,  neglected  herein,  which  might  be  of  interest 
for  other  applications.  One  of  the  most  important  is  the  boundary  layer,  whose  growth 
on  the  walls  of  the  supply  tube  and  test  section  varies  with  time.  This  unsteadiness  occurs 
because  at  any  given  station  along  the  tunnel,  the  particles  of  air  passing  that  station 
at  succeeding  times  into  the  run  have  travelled  over  successively  longer  lengths  of  tube 
from  their  starting  points.  If  the  effect  of  the  boundary-layer  growth  on  the  local  mass 
flow  rate  is  thought  of  in  terms  changing  the  effective  flow  area,  one  might  suspect  that 
the  test  section  would  never  become  steady.  In  reality,  however,  the  boundary-layer  growth, 
sufficiently  late  in  the  starting  process,  varies  with  approximately  the  same  proportion 
in  the  nozzle  and  test  section  so  that,  though  the  effective  flow  areas  may  be  varying, 
the  area  ratios  (A/A*)  are  not.  As  experimentally  documented  in  Refs.  1  and  5,  this 
results  in  essentially  constant  Mach  number  once  the  plenum  has  become  steady,  thus 
justifying  the  neglect  of  the  boundary  layer  herein. 

Neglect  of  the  boundary  layer  means  that  no  prediction  is  made  of  property  variation 
over  the  cross  section  of  the  flow  area.  Similarly,  detailed  variation  of  properties  along 
the  length  of  the  test  section  is  not  predicted.  Such  information  would  be  useful  for 
studying  wall  loading  or  flow  uniformity  but  is  of  secondary  importance  for  present 
purposes.  Very  severe  nonuniformity  occurs  in  the  diffuser  section  (connecting  the  test 
section  and  main  valve  manifold),  which  has  been  subjected  to  a  detailed  experimental 
study  in  Ref.  4.  The  complexity  of  the  diffuser  flow  results  from  a  combination  of  effects: 
shock  waves,  flow  separation,  flap  exhaust,  and  the  presence  of  the  model  or  probe  support 
sector.  The  performance  of  the  diffuser  is  important  because  of  its  effect  on  the  noise 
environment  in  subsonic  flow  in  the  test  section  and  because  its  stagnation  losses 
significantly  impact  the  sizing  of  the  real  flow  area  of  the  main  valve  system.  However, 
for  purposes  of  the  starting  model,  diffuser  losses  may  be  neglected  if  the  main  valve 
area  is  assumed  to  be  the  ideal,  one-dimensional  flow  area  needed  to  pass  a  given  mass 
flow  rate  for  a  given  set  of  driving  stagnation  conditions  as  determined  from  wave 
mechanics. 

Three  additional  effects  neglected  herein  deserve  mention.  First,  wave  spreading  is 
neglected.  This  phenomenon  is  due  to  the  difference  in  propagation  speed  between  the 
leading  and  trailing  edges  of  the  unsteady  wave.  Since  the  wave  propagation  speed  (equal 
to  the  local  speed  of  sound  minus  the  local  velocity)  is  less  for  the  trailing  edge  than 
the  leading  edge,  the  time  delay  between  a  change  in  main  valve  area  and  the  sensing 
of  this  change  in  the  supply  tube  is  greater  for  the  last  area  change  than  the  first.  In 
fact,  this  delay  is  different  for  each  position  along  the  tunnel.  However,  over  the  greatest 
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distance  of  importance  in  the  pilot  facility,  this  difference  in  delay  is  less  than  0.5  msec 
and  is  neglected  in  the  model.  Besides  wave  spreading,  the  model  also  neglects  the  finite 
time  required  for  a  disturbance  to  travel  from  one  point  to  another.  Such  a  consideration 
is  important  for  determining  the  relative  times  for  first  motion  of  main  valves  and  plenum 
exhaust  valves;  but  for  purposes  of  the  starting  model,  the  tunnel  components  determining 
start  time  -  plenum,  test  section,  and  supply  tube  exit  -  are  sufficiently  close  together 
that  the  propagation  times  (on  the  order  of  one  millisecond  in  the  phot)  are  small  compared 
with  the  starting  time  under  study.  However,  neglect  of  the  propagation  time  and  wave 
spreading  should  not  be  construed  to  mean  that  the  finite  wave  width  is  neglected.  This 
width,  or  time  difference  between  passage  of  a  given  point  of  the  leading  and  traihng 
edges  of  the  wave,  depends  primarily  on  the  opening  time  of  the  valve  but  is  also  increased 
by  the  nonideal  flow  processes  in  the  diffuser.  Such  effects  are  accounted  for  herein  by 
correction  of  the  area-time  curve  of  the  main  valve.  A  final  additional  effect,  accounted 
for  empirically  but  not  modeled  in  detail,  is  the  nonisentropicity  of  the  thermodynamics 
of  the  plenum.  It  has  been  experimentally  observed  that  the  temperature  in  the  plenum 
approximates  an  isentropic  process  only  during  the  initial  portion  of  the  starting  process, 
but  over  the  entire  start  time  for  the  tunnel,  the  asymptotic  plenum  temperature  is  much 
closer  to  the  stagnation  temperature  in  the  test  section  than  that  for  a  completely  isentropic 
expansion.  A  good  model  of  this  process  would  have  to  include  the  mixing  of  the  virgin 
plenum  air  with  that  entering  from  the  test  section  as  well  as  account  for  the  heat  transfer 
from  the  walls  of  the  plenum.  This  possible  refinement  to  the  present  model  is  not  yet 
included. 

2,3  FORMAL  ASSUMPTIONS 

Before  proceeding  to  the  equations  comprising  the  mathematical  model,  the  following 
list  of  assumptions  should  be  reviewed: 

a.  Flow  across  all  control  volume  surfaces  is  one  dimensional. 

b.  The  fluid  is  assumed  to  be  a  calorically  perfect  gas  (constant  specific  heats). 

c.  Flow  within  the  envelope  comprised  of  the  supply  tube,  test  section,  and 
main  valves  is  inviscid,  adiabatic,  and  irrotational  except  as  accounted  for 
by  the  unsteady  wave  equations. 

d.  Within  this  envelope  and  at  a  constant  time,  property  variation  from  point 
to  point  is  isentropic.  Entropy  variation  with  time  is  governed  by  the  wave 
equations.  Thus,  at  any  given  instant,  the  one-dimensional,  variable  area, 
isentropic  equations  of  gas  dynamics  (Ref.  2)  are  applicable. 
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e.  Wave  propagation  time  and  wave  spreading  are  zero.  This  justifies  the  steady 
assumption  needed  to  invoke  the  equations  of  Ref.  2. 

2.4  MATHEMATICAL  FORMULATION 

The  set  of  equations  comprising  the  model  naturally  divides  into  two  groups,  one 
for  subsonic  flow  and  one  for  supersonic  flow.  Since  the  set  of  equations  for  supersonic 
flow  is  nearly  an  exact  subset  of  the  subsonic  case,  the  latter  will  be  presented  first, 
followed  by  a  discussion  of  the  changes  needed  for  supersonic  flow.  The  subsonic  model 
is  in  the  form  of  19  algebraic  equations,  not  necessarily  linear,  involving  19  unknowns. 
This  system  of  equations  must  be  solved  numerically  at  successive  points  in  time  until 
aU  properties  have  approached  their  asymptotic  values.  The  solution  at  any  time  t  depends 
entirely  on  the  property  values  obtained  for  the  solution  at  t  -  At,  a  short  time  earlier, 
as  well  as  the  given  valve  area-time  curves,  which  may  be  thought  of  as  forcing  functions. 
Quantities  which  vary  between  t  -  At  and  t  are  usually  evaluated  at  an  intermediate  time 
t*  such  that  (t  -  At)  <  t*  <  t.  The  time  t*  is  usually  taken  as  the  midpoint  of  the 
time  interval. 

The  model  is  based  on  mass  conservation  for  three  control  volumes  as  illustrated 
in  Fig.  2.  Conservation  of  mass  for  the  plenum  is  derived  from  the  unsteady  integral 
continuity  equation  for  a  control  volume  to  give 

=  Pp^^  ~  ^  (1) 

Here  pp  is  the  mass  density  in  the  plenum,  assumed  uniform  throughout,  and  Vp  is  the 
volume  of  the  plenum.  The  quantities  ntiptft*),  mpe(t*),  and  mf(t*)  represent,  respectively, 
the  mass  flow  rates  between  the  plenum  and  test  section  (pt),  out  the  plenum  exhaust 
(pe),  and  through  the  flaps  (f).  The  formal  continuity  equation  can  not  be  precisely 
integrated  because  the  dependence  of  the  mass  flow  rates  on  t  or  pp  can  not  be  written 
in  simple  closed  form.  However,  the  law  of  the  mean  provides  that  Pp(t)  may  still  be 
precisely  computed  if  the  flow  rates  are  treated  as  constant  but  evaluated  at  a  suitable 
intermediate  point  t*.  If  At  is  now  chosen  sufficiently  small  so  that  the  flow  rates  may 
be  suitably  approximated  by  linear  functions  of  time,  t*  can  obviously  be  chosen  as  t 
-  l/2At,  the  midpoint.  For  the  other  two  control  volumes  in  Fig.  2,  the  steady  continuity 
equation  is  used,  having  been  justified  by  assumption  (e)  of  the  last  section.  By  noting 
that  Eq.  (1)  assumes  the  flap  and  wall  crossflows  are  positive  when  flow  is  into  the  plenum., 
continuity  for  the  test  section  becomes 

(2) 
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and  for  the  diffuser-valve  manifold  control  volume 

mj(t*)  =  riigli*)  +  (3) 

The  three  new  mass  flow  rates  introduced  here  are,  in  terms  of  the  subscripts,  that  leaving 
the  supply  tube  (ct,  for  charge  tube,  as  it  is  often  called),  the  primary  tunnel  exit  (e) 
provided  by  the  main  valves,  and  the  diffuser-end  (d)  of  the  test  section.  It  should  be 
noted  from  Fig.  2  that  ma  corresponds  to  a  point  upstream  of  where  the  flap  flow  enters 
the  main  stream. 


Proceeding  next  to  model  each  of  these  six  mass  flow  rates,  consider  first  the  flow 
through  the  plenum  exhaust  and  the  main  valves,  which  are  both  treated  as  single 
one-dimensional  sonic  orifices  driven  by  the  stagnation  conditions. 


riled*) 


P  (t*)A  (l*) 


\/Te  (I*) 


riiped*) 


=  a 


P.(t*)A  (t*) 

P  pc 


VTpd*) 


(4) 

(5) 


In  Eq.  (4),  Pe^  and  Te^  are  the  stagnation  pressure  and  temperature  in  the  valve  manifold; 
and  in  Eq.  (5),  Pp  and  Tp  are  the  pressure  and  temperature  in  the  plenum,  approximated 
as  stagnant.  The  quantities  Ae  and  Ape  are  the  total  flow  areas  of  the  main  valves  and 
plenum  exhaust  valves.  These  areas  are  assumed  to  be  the  ideal,  one-dimensional  flow 
areas  of  a  sonic  orifice.  If  the  real  valve  areas  are  used,  discharge  coefficients  must  be 
included  in  Eqs.  (4)  and  (5).  The  constant  a  is  given  by 


y+l 


« -  (^Y^‘ 

%/  \y  +  V 


(6) 


where  R  is  the  ideal  gas  constant  and  y  is  the  ratio  of  the  specific  heats. 

Consider  next  the  flap  and  wall  crossflows,  which  have  been  neatly  modeled  by  Varner 
(Ref.  2)  as  simply  proportional  to  the  pressure  drop  across  the  devices.  With  a  second 
order  adaptation  added  here,  Varner's  model  takes  the  following  form 


=  -  k  -  P 


tPp(t*)  -  AisP^Ct*)] 


(7) 


m^t*)  =  - 


Aj(t*) 


[P  Jt*) 


Ai,P,(t*)] 


(8) 
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Here  and  Af  are  the  effective  flow  areas  through  the  porous  wall  and  through  the 
flaps.  While  Af  is  the  actual  geometric  area,  Aw  depends  on  the  total  surface  area  of 
the  test  section  walls  (Atsw))  the  porosity  (t),  and  a  flow  coefficient.  Varner  gives  this 
relationship  as 


A 


W 


0.17  r 


tsw 


(9) 


The  flow  coefficients  kw  and  kf  were  determined  by  Varner  from  experimental  data  from 
Pilot  HIRT  and  are  given  in  Fig.  7.  The  values  of  kw  in  Fig.  7  are  for  the  porosity 
shown  in  Fig.  8.  The  coefficients^  A15  and  Aie  multiplying,  respectively,  the  mean  test 
section  pressure  Pt  and  the  diffuser  end  test  section  pressure  Pd  were  added  in  an  effort 
to  improve  the  accuracy  of  the  asymptotic  values  of  the  numerical  solution.  The  rationale 
for  each  of  these  constants  is  different.  Rigorous  modeling  of  the  crossflow  must  include 
not  only  the  effect  of  pressure  forces  but  also  the  momentum  of  the  fluid  as  it  moves 
along  the  test  section  wall.  The  coefficient  A15  thus  represents  an  attempt  to  include 
momentum  effects  as  a  small  correction  to  the  existing  crossflow  model.  Experimental 
evidence  from  the  pilot  facility  indicates  that  tliis  small  momentum  effect  can  make  the 
difference  between  choking  and  not  choking  when  the  desired  steady  conditions  are  very 
near  sonic  flow.  In  particular,  it  has  been  observed  that  during  supersonic  flow,  where 
the  net  crossflow  must  be  from  the  test  section  to  the  plenum,  the  test  section  pressure 
is  actually  slightly  less  than  the  plenum  pressure. 


a.  Porous  wall  flow  coefficient 
versus  porosity  (r) 


b.  Ejector  flap  flow  coefficient 
versus  area  ratio  (Af/Ajs) 


Figure  7.  Porous  wall  and  flap  flow  coefficients. 


^The  subscripts  15,  16,  and  17  have  no  significance  beyond  consistency  with  variable  names  in 
the  computer  program. 
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Flow  Direction 


Figure  8.  Wall  porosity  in  Pilot  HIRT. 
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This  has  been  attributed  to  the  fluid  momentum  in  the  test  section  overcoming  the  slightly 
adverse  pressure  gradient.  The  other  constant,  Ai  e  in  the  flap  model,  was  added  to  account 
for  some  of  the  losses  in  the  upstream  portion  of  the  diffuser.  Unfortunately,  both  of  these 
constants  were  found  to  be  functions  of  the  test  section  Mach  number,  thus  indicating  the 
need  for  more  accurate  modeling. 

The  mean  test  section  pressure  Pt  in  Eq.  (7)  is  computed  from  a  weighted  average 
of  the  pressure  at  the  nozzle-end  of  the  test  section  and  at  the  diffuser  end  .  That 
is, 

Pj(t*)  =  (1  -  +  Aj^Pjd*)  (10) 

where  0  <  Ai  7  <  1 .  Since  a  detailed  model  of  axial  property  variation  in  the  test  section 
has  not  yet  been  included  in  the  start  model,  properties  are  computed  only  at  the  nozzle 
and  diffuser  ends  of  the  test  section.  For  subsonic  flows,  the  value  of  Ai  7  was  not  found 
critical  to  the  accuracy  of  the  solution  and  was  thus  taken  as  0.5,  assuming  a  linear 
variation.  For  supersonic  flow,  a  value  of  0.9  was  used  to  account  for  the  more  pronounced 
axial  gradients. 

The  remaining  two  mass  flow  rates  (ihct  and  liid)  may  be  related  to  pressures  already 
introduced  above  using  the  steady  energy  equation  discussed  earlier  and  shown  in  Fig. 
3.  At  the  diffuser  end  of  the  test  section,  the  energy  equation  is 
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where  as  before  the  subscript  "ct"  refers  to  the  charge  tube  and  the  subscript  "o"  indicates 
stagnation  properties.  The  quantiy  iho  is  defined  as 


mo(t*) 


(t*) 

0^ 


ts 


(12) 


where  Ats  is  the  cross-sectional  area  of  the  test  section.  The  stagnation  properties  (Pcto 
and  TcIq)  are  thought  of  as  originating  from  the  unsteady  wave  when  it  reaches  the  charge 
tube  and  are  assumed  the  same,  for  any  given  time,  throughout  all  of  the  flow  envelope 
except  the  plenum.  At  the  nozzle  end  of  the  test  section,  the  flow  rate  is  equal  to  that 
in  the  charge  tube,  since  its  value  has  not  yet  been  modified  by  any  wall  crossflow.  At 
this  station,  the  energy  equation  is,  therefore. 
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To  complete  the  portion  of  the  model  not  arising  from  the  unsteady  wave,  the 
thermodynamic  equations  of  state  for  the  plenum  are  needed.  To  compute  the  properties 
at  t*  for  use  in  Eqs.  (5),  (7),  and  (8)  while  Eq.  (1)  gives  the  density  at  t,  the  density 
at  t*  is  computed  from 


Pp(i*)  =  l/2[pp(t)  +  pp(t  -  At)]  (14) 

The  plenum  temperature  is  assumed  equal  to  the  greater  of  the  isentropic  temperature 
and  the  stagnation  temperature  in  the  test  section. 

That  is. 


Tp(t*) 


max 


Pp(t*) 

-  At)_ 


y~i 


(15) 


In  either  event,  the  pressure  may  then  be  obtained  from  the  perfect  gas  law: 

Pp(t*)  =  Pp(t*)RTp(t*)  (16) 

Closing  the  system  of  equations  presented  so  far  requires  relationships  for  how  the 
stagnation  properties  vary  in  time.  A  careful  accounting  of  the  number  of  equations  and 
the  number  of  unknowns  to  this  point  would  reveal  that,  given  values  of  Pct^  and  Tct^ 
and  assuming  Pe^  “  Pcto  ~  ^cto  (which  is  what  is  done  for  the  subsonic  case). 
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it  is  possible  to  compute  the  value  of  riict-  This  value  of  the  flow  rate  from  the  charge 
tube  represents  that  required  by  the  sum  total  of  all  the  expansion  waves  which  at  a 
given  time  have  reached  the  charge  tube  from  all  parts  of  the  tunnel.  That  is,  met  identifies 
an  intermediate  point  within  the  entire  unsteady  wave,  which  begins  with  the  first  motion 
of  a  valve  somewhere  in  the  tunnel  and  ends  when  the  plenum  reaches  its  asymptotic 
pressure.  Thus,  liict  may  be  used  to  compute  all  other  stagnation  properties  for  that  point 
in  the  unsteady  wave.  By  using  the  equations  of  Ref.  3  and  after  some  algebra,  the  charge 
tube  Mach  number  at  the  desired  point  in  the  wave  may  be  related  to  met  by  the  equation: 

y+l 


■-  1 


) 

- 


(17) 


where  ihc  is  defined  from 


Ct 


(18) 


Here  Act  is  the  cross-sectional  area  of  the  charge  tube,  and  Pc  and  Tc  are  the  charge 
conditions,  that  is,  the  air  pressure  and  temperature  after  the  tunnel  has  been  pumped 
up  but  before  any  valves  are  opened.  These  charge  conditions  are  assumed  to  apply 
uniformly  throughout  the  envelope,  including  the  plenum.  After  obtaining  the  charge  tube 
Mach  number,  the  stagnation  pressure  and  temperature  are  readily  computed  from  the 
following  equations  from  Ref.  3: 
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Tct  = 
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Equations  (1)  through  (20)  thus  comprise  the  subsonic  portion  of  the  starting  model 
and  are  summarized  in  Table  1 .  The  supersonic  case  is  physically  different  from  the  subsonic 
case  and  requires  solution  of  a  different  set  of  equations  as  noted  in  Table  1.  The 
distinguishing  factor  of  the  supersonic  case  is  that  the  nozzle  exit  is  choked,  making  the 
flow  rate  and  stagnation  conditions  steady  there.  Once  the  nozzle  chokes,  the  charge  tube 
Mach  number  is  a  constant  depending  only  on  the  area  ratio  between  the  charge  tube 
and  nozzle  exit.  From  Ref.  2,  the  steady  Mach  number  can  be  obtained  by  reverting 
the  equation: 
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Table  1.  List  of  Exact  Simultaneous  Equations 
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With  this  final  Mach  number,  the  steady  stagnation  conditions  (Pcto>  Tcto>  iho)  along 
with  the  steady  charge  tube  flow  rate  (rhct)  can  be  computed  one  final  time  from  Eqs. 
(19),  (20),  (13),  and  (17),  after  which  these  equations  and  variables  may  be  dropped 
from  the  simultaneous  solution.  Since  rhct  is  now  constant,  the  flow  rate  leaving  the  test 
section  (rhd)  is  solely  dependent  on  the  wall  crossflow  (ihpt)  according  to  Eq.  (2)  and 
is  independent  of  the  flow  rate  out  the  main  valves  (ihe),  assuming  the  valve  area  Ae 
is  sufficient  to  pass  all  the  charge  tube  flow  not  removed  by  the  plenum  exhaust.  Thus, 
Eqs.  (3)  and  (4)  may  also  be  dropped  from  the  system  of  equations.  This  is  fortunate 
since  it  is  no  longer  true  that  Pe^  =  Pcto>  which  results  from  the  nonisentropic 
recompression  of  the  supersonic  flow  entering  the  diffuser.  Thus,  the  original  system  of 
19  equations  and  19  unknowns  reduces  to  10  equations  and  10  unknowns  for  the 
supersonic  case. 


These  two  sets  of  equations  were  solved  using  an  iterational  technique  which 
unfortunately  failed  to  converge  in  the  vicinity  of  the  choke  point  in  time.  To  provide 
an  alternate  solution  procedure  when  the  iterational  technique  failed  to  converge,  a  small 
perturbation  solution  was  developed  for  the  ori^nal  exact  equations.  The  small  perturbation 
solution  was  then  used  as  an  initial  guess  for  the  iterational  procedure  when  it  converged 
and  as  the  complete  solution  when  it  did  not.  The  results  of  this  lengthy  derivation  are 
recorded  in  Appendix  A,  but  the  essential  ideas  are  discussed  below. 


The  exact  solution  already  assumes  that  At  is  a  srpall  quantity.  For  the  small 
perturbation  solution,  therefore,  any  of  the  19  variables  at  time  t*  may  be  assumed  to 
be  related  to  their  values  at  t*  -  At  by  the  general  form 

Vi(t*)  =  Vj(t*  -  At)  +  6j(t*)  (22) 

where  ei  is  the  small  increment  in  the  variable  and  i  =  1,  2, ...,  19.  If  these  small  perturbation 
equations  are  used  to  expand  the  original  exact  equations,  a  new  system  of  equations 
involving  the  increments  rather  than  the  variables  themselves  is  obtained.  For  all  exact 
equations,  except  the  energy  equations  relating  the  pressure  and  mass  flux  at  the  entrance 
and  exit  of  the  test  section  (Eqs.  (11)  and  (13)),  only  terms  of  order  ei  need  be  retained 
in  the  small  perturbation  equations.  Such  is  not  the  case  for  the  energy  equations  because 
in  the  region  of  the  peak  (or  choke  point)  in  Fig.  3,  there  is  no  linear  approximation 
to  the  function.  In  the  expanded  equation,  the  coefficient  of  Cj  approaches  zero  as  the 
Mach  number  approaches  one.  Thus,  the  term  of  order  ,  whose  coefficient  is  nonzero 
at  Mach  number  one,  governs  the  form  of  the  expansion.  The  resulting  subsonic  system 
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of  equations  is  thus  comprised  of  1 7  linear  equations  and  2  second-degree  equations,  which 
can  be  solved  analytically.  The  supersonic  case  is  composed  of  9  linear  equations  and 
1  of  second  degree. 

2.5  SOLUTION  PROCEDURE 

The  procedure  used  to  solve  these  two  systems  of  equations  is  discussed  in  the 
following  section.  Included  is  a  discussion  of  the  overall  logical  procedure,  the  order  in 
which  the  equations  of  the  exact  solutions  are  used,  convergence  considerations,  and  a 
general  description  of  the  computer  program  used  to  accomplish  the  calculation.  The 
general  solution  procedure  is  illustrated  by  the  flow  chart  in  Fig.  9.  The  decision  whether 
to  use  the  supersonic  or  subsonic  branch  is  decided  by  whether  Pd(t*  -  At)  <  P*  or 
Pd(t*  -  At)  >  P*,  that  is  whether  the  diffuser  end  of  the  test  section  was  supersonic 
or  subsonic  at  the  midpoint  of  the  previous  time  interval.  If  the  previous  interval  was 
supersonic,  the  current  one  is  also  assumed  to  be  supersonic.  If  the  previous  interval  was 
subsonic  but  1  -  M(t*  -  At)  <  M(t*  -  At)  -  M(t*  -  2At),  then  the  supersonic  branch 
is  used  for  the  current  time  interval;  otherwise  the  solution  is  assumed  to  remain  subsonic. 
This  criterion  is  checked  for  both  ends  of  the  test  section,  and  the  switch  to  the  supersonic 
branch  is  contingent  upon  either  or  both  positions  satisfying  the  inequality.  In  either  event, 
the  small  perturbation  solution  is  computed  to  provide  a  good  starting  point  for  the  exact 
iterational  procedure.  If  convergence  does  not  occur  before  a  given  number  of  iterations, 
the  small  perturbation  solution  is  used  as  the  final  solution,  and  the  next  time  interval 
is  begun. 

The  "exact  iterational  procedure"  referred  to  above  is  accomplished  by  taking  an 
initial  guess  for  one  of  the  19  variables  and  then  proceeding  from  equation  to  equation, 
determining  new  values  for  each  of  the  19  variables  until  a  complete  circuit  is  made  and 
a  second  value  of  the  variable  initially  guessed  at  is  obtained.  This  process  is  repeated 
until  the  difference  between  two  successive  values  of  certain  of  the  variables  is  within 
a  preset  limit.  For  the  subsonic  case,  the  equation  order  is  as  follows: 

4,  3,  11,  10,  7,  2,  17,  19,  20,  12,  13,  10,  7,  8,  1,  14,  15,  16, 

5,  ... 

The  supersonic  equation  order  is 

10,  7,  2,  11,  10,  7,  8,  1,  14,  15,  16,  5,  ... 

Some  of  these  equations  (Eqs.  (11),  (13),  and  (17))  require  reversion  from  the  form  given 
but  cannot  be  reverted  analytically  in  closed  form  and  must  be  solved  numerically.  The 
variable  to  be  solved  for  in  each  equation  is  indicated  in  Table  1 ,  and  the  three  requiring 
numerical  reversion  are  marked  with  an  asterisk. 
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Figure  9.  Flow  chart  of  solution  procedure. 


The  complete  solution  thus  requires  numerical  iteration  at  three  distinct  levels,  which 
necessitates  careful  consideration  of  convergence  criteria  as  well  as  what  to  do  when  the 
criteria  can  not  be  met  because  of  stability  problems.  The  most  basic  level  of  numerical 
iteration  involves  reversion  of  the  two  energy  equations  and  the  mass  flux  -  Mach  number 
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wave  equation.  Considering  the  general  case  where  the  function  Y  =  F(X)  must  be  solved 
for  X  given  a  value  of  Y  and  a  guess  Xi ,  the  procedure  is  simply  to  adjust  Xi  in  the 
direction  which  reduces  the  error  criterion 

Ej  =  (23) 

until  lEil  <  lEmaxl  Em  ax  being  the  present,  maximum  allowable  error.  The  precise  logic 
of  the  procedure  is  illustrated  in  the  flow  chart  in  Fig.  10.  Since  this  procedure  must 


X  =  -AX 


'n+1  "'^n- 


Y  =  F(X)  for  X,  given  Y  when  X  =  (Y)  is  not  a 

closed  form  function. 
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be  repeated  many  times  at  each  time  interval,  it  is  of  considerable  importance  (because 
of  impact  on  computer  time)  to  achieve  a  solution  with  as  few  iterations  as  possible. 
Since  the  number  of  iterations  depends  to  a  large  extent  on  the  accuracy  of  the  guess 
Xi ,  considerable  effort  was  expended  in  obtaining  approximate  reversions  of  the  three 
equations.  It  was  inadvertently  discovered  that  the  energy  equation  may  be  approximated 
with  surprising  accuracy  over  the  entire  range  of  present  interest  with  a  single  ellipse, 
the  reversion  of  which  is  trivial.  The  wave  equation  presented  more  of  a  problem.  Since 
an  easily  revertable  second-degree  expansion  around  Met  =  0  failed  to  match  the  accuracy 
of  the  elliptic  energy  equation,  the  expansion  was  carried  to  the  seventh  degree  and  then 
formally  reverted  according  to  the  procedure  of  Ref.  6.  These  expansions  are  summarized 
in  Appendix  B. 


The  next  higher  level  of  iteration  is,  of  course,  the  simultaneous  solution  of  the 
exact  model  equations,  during  which  stability  problems  were  encountered  in  the  vicinity 
of  the  choke  point.  The  error  criterion  for  halting  the  iteration  may  be  generally  expressed 
as 


1  1 


<  p 


—  err 


(24) 


where  test  variables  (vj)  are  the  pressures  Pp(t),  Pp(t*),  Pa,  Pt,  and  Pet^,;  Pert  is 
the  maximum  allowable  error;  and  n  is  the  iteration  number.  Figure  11  illustrates  the 
stability  problem  encountered  in  striving  to  meet  this  error  limit.  Shown  is  how  the  plenum 
pressure  Pp  (t*)  varied  with  iteration  number  at  two  succeeding  time  points,  one  converging 
and  one  not.  Such  stability  problems  are  known  to  occur  in  applying  the  iterational 
technique  to  locating  the  intersection  of  two  curves  on  a  plane  when  the  curves  have 
the  same  slope  (same  or  opposite  sign)  at  the  point  of  intersection.  Whether  this  simple 
explanation  in  2-space  is  applicable  to  19-space  where  no  two  of  the  19  functions  lie 
in  the  same  plane  is  unclear.  In  any  event,  improvement  in  convergence  rate  was  sought 
via  the  following  procedures,  most  of  which  improved  the  situation: 

Relative  Errors.  It  was  found  that  if  E^ax  was  much  greater  than  1/10 
Pen,  the  numerical  reversions  could  oscillate  enough  themselves  from  one 
iteration  to  the  next  to  slow  convergence. 

Computational  Precision.  Single  precision  arithmetic  (~8  digits  on  an  IBM 
370)  was  found  inadequate  to  achieve  errors  of  Em  ax  ^  lO’^  (Pe„  =  10-4), 
and  double  precision  (~16  digits)  was,  therefore,  adopted. 
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Figure  11.  Plenum  pressure  versus  iteration  number  for  convergent 
and  divergent  cases. 

c.  Solution  Weighting.  The  clearly  periodic  oscillation  of  Fig.  1 1  suggests  that 
the  average  of  any  two  successive  values  should  be  closer  to  the  final 
asymptote  than  either  value.  Accordingly,  solution  weighting, 

+  (1  -  (25) 

was  employed  on  a  regular  basis. 

d.  Weight  Cutting.  It  was  further  discovered  that  convergence  rate  could  be 
greatly  improved  after  the  number  of  iterations  reached  a  certain  point 
if  a  lesser  weight  was  applied  to  the  current  value 

e.  Error  Cutting,  It  was  found  that,  later  in  a  com.putation  when  som_e  of 
the  pressures  were  very  near  their  asymptotes,  the  amount  of  variation  from 
one  time  point  to  the  next  eventually  approached  the  error  limit.  This  in 
effect  allowed  these  values  to  vary  at  random  within  the  error  limits  and 
deteriorate  the  convergence  rate.  It  was  thus  found  prudent  to  reduce  the 
error  Limits  as  necessary  so  as  to  maintain 
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Perr  < 


V.(t*)  ~  “  At) 


/4[v.(t*)  +  Vj(t*  -  At)] 


and  Emax  <  1/10  Pen. 

f.  Extrapolation.  A  second-order  extrapolation  function 
Vj(t*)  =  2vj(t*  —  At)  —  Vj(t*  —  2At) 


(26) 


(27) 


was  tested  in  an  effort  to  improve  the  starting  values  for  iteration  through 
the  19  equations,  but  this  generally  produced  no  improvement  in 
convergence  rate.  A  third-order  function 

v.(t*)  =  3v.(t*  -  At)  -  3v.(t*  -  2At)  +  v.(t*  -  3At)  (28) 

was  found  not  much  better.  Ultimately,  of  course,  it  is  illogical  to  expect 
any  finite  order  extrapolation  scheme  to  predict  the  effect  of  changes  in 
the  forcing  functions  (area-time  curves)  if  those  coming  changes  had  not 
been  anticipated  by  the  derivatives  of  less  than  that  order. 

g.  Small  Perturbation  Solution.  In  place  of  an  extrapolation  function,  there 
was  used  the  more  logical  small  perturbation  solution.  This  considerably 
improved  the  convergence  rate  and  provided  sufficiently  accurate  results 
in  lieu  of  the  exact  solution  when  it  failed  to  converge  in  a  reasonable 
length  of  time. 

The  complete  mathematical  model  along  with  the  above  described  convergence 
enhancement  logic  have  been  programmed  in  Fortran  IV  for  solution  on  an  IBM  370/165. 
The  computer  program  HIRTSMl  (for  HIRT  Starting  Model)  is  composed  of  the  normally 
expected  components:  the  main  program  (MAIN)  containing  the  exact  equations,  the 
convergence  control  logic,  and  the  overall  solution  control  logic;  subroutines  to  control 
input  (INPUT),  output  (PRINT  and  DUMP),  and  variable  definition  and  initialization 
(CONST  and  INIT):  and  a  subroutine  which  performs  the  calculation  for  the  analytical 
solution  to  the  simultaneous  small  perturbation  equations  (SMPERT).  In  addition,  the 
program  contains  a  package  of  utility  subroutines:  one  routine  contains  the  logic  of  Fig. 
10  to  numerically  revert  any  given  function  (SOLVER);  a  second  expands  out  the  binominal 
coefficients  (BINOM)  to  give  a  series  which  is  reverted  by  a  third  subroutine  (REVERT) 
to  the  seventh-degree  term;  a  fourth  subroutine  (QSIMUL)  determines  the  points  of 
intersection  of  two  conics  (the  two  final  energy  equations  resulting  from  SMPERT)  by 
converting  them  to  a  single  fourth-degree  polynominal,  which  has  an  exact  analytical 
solution  for  the  four  roots  (QANDC).  Use  of  this  program  is  described  in  Appendix  C. 
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The  program  can  be  run  in  a  partition  of  11  OK  bytes  and  easily  completes  about  200 
time  increments  in  less  than  a  minute  of  central  processor  time,  though  occasionally  a 
run  may  require  up  to  three  minutes.  Peripheral  storage  is  not  essential,  though  provisions 
are  made  to  dump  the  entire  solution  on  to  a  direct  (random)  access  data  set  (such  as 
a  disk  file)  so  that  the  solution  may  be  picked  up  at  any  point  and  continued.  The  results 
of  calculations  with  HIRTSMl  are  compared  in  the  next  section  with  experimental  results 
from  the  Pilot  HIRT  facility. 


3.0  RESULTS 

Presented  below  is  a  comparison  between  the  mathematical  model  and  experimental 
pressure-time  histories  from  Pilot  HIRT.  Included  is  a  brief  description  of  those 
characteristics  of  the  tunnel  important  to  the  model.  After  a  comparison  of  the  model 
and  data,  some  other  results  of  the  calculations  are  shown.  The  section  concludes  with 
a  discussion  of  how  the  model  can  be  applied  in  the  design  of  certain  portions  of  the 
tunnel. 

3.1  DESCRIPTION  OF  PILOT  HARDWARE 

Figure  12  shows  an  elevation  line  drawing  of  the  Pilot  HIRT  facility,  to  which  the 
present  mathematical  model  was  applied.  Figure  13  shows  most  of  the  geometric  data 
required  by  the  model  and  also  accurately  illustrates  the  real  life  hardware,  which  is  simplified 
in  the  model.  The  geometric  parameters  in  the  precise  form  used  in  the  model  are 
summarized  in  Table  2.  The  tunnel  uses  two  alternate  types  of  starting  devices,  the  sliding 
sleeve  valve  shown  in  Fig.  13  and,  for  quicker  starts,  a  Mylar®  diaphragm  and  cutter 
located  at  the  interface  of  the  diffuser  and  the  valve  assembly.  The  plenum  exhaust  system, 
shown  schematically  in  Fig.  14,  also  uses  a  diaphi'agm  in  addition  to  two  valves  to  control 
the  exhaust  flow.  The  diaphragm  initiates  the  flow,  and  the  ball  valve,  whose  setting  cannot 
be  changed  during  a  run,  determines  the  amount  of  plenum  exhaust  during  the  steady 
portion  of  the  run.  The  quick-acting  valve,  however,  may  be  rapidly  closed  during  the 
run  to  provide  a  temporarily  elevated  plenum  exhaust  in  excess  of  what  the  ball  valve 
will  pass.  The  complete  system  in  Fig.  14  is  modeled  as  the  area-time  curve  of  a 
one-dimensional  sonic  orifice,  as  is  the  multiple  port  system  on  the  main  valve. 

The  portion  of  the  tunnel  shown  in  Fig.  13  was  heavily  instrumented  with  pressure 
taps  to  measure  pressure-time  histories  at  various  locations  in  the  nozzle,  test  section, 
diffuser,  and  plenum.  Output  from  the  pressure  transducers  was  sampled  every  2  msec 
by  a  data  acquisition  system  based  on  a  PDF  11/10  digital  computer  with  certain  of  the 
signals  also  displayed  on  a  recording  oscillograph.  Of  primary  interest  here  are  the  plenum 
pressure-time  histories,  which  comprise  the  primary  basis  for  comparison  of  the  theory 
and  experiment. 
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Table  2-  Geometric  Data  for  Pilot  HIRT  Required  by  Mathematical  Model 

Charge  Tube  Diameter  1 . 162  f t 

Charge  Tube  Flow  Area  1.060  ft^ 

Ratio  of  Charge  Tube  Area  to  Test  Section  Area  2.271 
Test  Section  Length  2.114  ft 

Test  Section  Width  0,7633  ft 

Test  Section  Height  0,6117  ft 

Test  Section  Flow  Area  0.4669  ft^ 

Test  Section  Wall  Surface  Area  5.813  ft^ 

Test  Section  Porosity  3.5  to  10% 


Test  Section  Volume 
Flap  Flow  Area 

Ratio  of  Plenum  Volume  to  Test  Section  Volume 
Nominally 


0.9870  ft3 

0  to  0.2062  ft2 

1.75  to  4.0 
2.8 


Plenum  Chamber 

Test  Section 

—  Ejector  Flaps 


To  Main  Exhaust 
(Valve  or  Diaphragm) 


Plenum  Exhaust  Line  (Ten  2-in. -ID 
Lines  Manifolded  Ahead  of  Diaphragm) 

Diaphragm  (Ruptured  to  Initiate  Flow) 

— To  Atmosphere 

6“in.  Ball  Valve  (Orifice  Variable) 
Quick  Acting  Valve  (Open  or  Closed) 


To  Atmosphere 


Figure  14.  Planum  exhaust  system. 
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3.2  COMPARISON  OF  MATH  MODEL  AND  EXPERIMENT 

Data  for  nine  different  tunnel  settings  were  studied  with  the  mathematical  model. 
Some  basic  data  for  runs  typical  of  these  nine  conditions  are  summarized  in  Table  3. 
The  data  of  primary  interest  in  this  table  include  the  plenum-to-test  section  volume  ratio, 
porosity,  the  opening  times  of  the  main  valve  and  plenum  exhaust  valve,  the  maximum 
plenum  exhaust  area,  and  the  experimental  test  section  Mach  number.  The  conditions 
hsted  for  Run  2258  may  be  considered  nominal  values  from  which  variations  in  plenum 
volume,  porosity,  flap  setting,  and  test  section  Mach  number  were  examined. 

Figure  15  compares  the  experimental  plenum  pressure  as  a  function  of  time  with 
the  present  mathematical  model  for  the  nominal  conditions  (Run  2258).  The  data 
illustrated  is  for  a  plenum  volume  2.8  times  the  test  section  volume,  a  porosity  of  4-1/2 
percent,  and  a  flap  setting  of  0.4  in.  (the  gap  between  the  flap  and  the  test  section  wall 
where  the  flap  flow  empties  into  the  diffuser).  The  main  starting  device  was  a  Mylar 
diaphragm;  and  the  exit  flow  area,  the  primary  factor  determining  the  asymptotic  test 
section  Mach  number  (0.921),  was  obtained  by  capping  off  the  proper  number  of  exit 
ports  on  the  main  exhaust  manifold  (Fig.  13,  16-in.  valve).  Since  the  desired  Mach  number 
was  subsonic,  the  plenum  exhaust  system  was  not  used.  The  resulting  data  for  these  tunnel 
settings  are  plotted  in  Fig.  15  as  circles,  and  the  solid  line  represents  the  output  of  the 
computer  program.  The  program  was  run  for  the  indicated  tunnel  settings  (Table  3),  but 
several  not  readily  apparent  inputs  were  assumed.  The  starting  device  (diaphragm)  was 
treated  as  a  linear  area-time  curve  reaching  its  maximum  area  in  2  msec.  The  maximum 
area  shown  in  Table  3  is  approximately  99.46  percent  of  the  test  section  flow  area,  which 
is  based  on  the  ideal,  one-dimensional  flow  area  ratio  needed  to  produce  a  test  section 
Mach  number  of  0.921.  The  resulting  theoretical  plenum  pressure-time  history  shown  in 
Fig.  15  agrees  Well  with  the  experimental  data.  The  greatest  discrepancy  occurs  at  25 
msec  and  reaches  a  peak  there  of  6.5  percent.  This  difference,  due  to  a  temporary  leveling 
of  the  experimental  data  between  10  and  25  msec,  results  from  the  finite  time  required 
for  the  initial  expansion  wave  to  traverse  the  plenum  volume,  which  includes  the  plenum 
exhaust  lines  shown  in  Fig.  14.  These  lines  extend  to  a  distance  of  about  4  ft  from  the 
major  portion  of  the  plenum.  Since  the  model  assumes  a  uniform  plenum,  it  cannot  account 
for  this  factor.  Figure  15  also  illustrates  another  deficiency  of  the  model,  which  in  this 
case  produces  the  3.1 -percent  error  at  a  time  of  about  100  msec.  Part  of  this  error  is 
due  to  error  accumulation  in  the  small  perturbation  solution,  to  which  the  program  reverted 
entirely  beyond  45  msec  because  of  nonconvergence  of  the  exact  iterational  solution. 
Another  part  of  the  error,  in  this  case  the  smaller  part,  is  due  to  neglect  of  the  axial 
momentum  of  the  test  section  flow  by  the  crossflow  model,  which  results  in  the  smaller 
slope  of  the  theoretical  curve  in  the  region  of  60  to  90  msec.  Since  this  discrepancy 
has  been  found  to  be  generally  small  for  subsonic  runs,  the  coefficient  in  the  crossflow 
model  (Ais)  has  been  left  equal  to  one. 
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Table  3.  Summary  of  Run  Conditions  for  Experimental  Data  to  be 
Compared  with  Theory 


Ul 

os 


Run 

Number 

Charge 
Pressure , 
P^,,  psia 

Plenum 

Volume 

{-), 

Porosity , 

% 

Maximum  Flow  Area 

Total  Opening  Times 

Plenum 
Delay , 
sec 

Asymptotic 

Plenum 

Pressure, 

psia 

Test  Section 
Mach  Number 

K 

Main  Valve, 
Ae,  ft2 

Plenum  Ex, 

Ape,  ft2 

Flaps , 

Af, 

Main  Valve, 
sec 

Plenum  Ex, 
sec 

Flaps , 
sec 

2226 

60.11 

2.8 

4.5 

0.466886 

0 

0.045335^ 

0.002 

— 

— 

— 

25.00 

0.992 

2236 

62.37 

2.8 

4.5 

0.466331 

0 

0,2062^ 

0.002 

— 

— 

— 

25.55 

0.962 

2241 

61.84 

2.8 

1 . 5 

0.465911 

0 

0.09167*^ 

0.002 

— 

— 

23.83 

1.013 

2251 

81.47 

2.5 

4 . 5 

0.465911 

0.1090 

0.09167 

0.002 

0.040 

— 

0.005 

30 .56 

1.039 

2255 

81  .27 

2 . 5 

4.5 

0.465911 

0.1090 

0.091C7 

0.002 

0.040 

— 

0.004 

24.04 

1.228 

22  58 

70.51 

2.8 

4.5 

0.464351 

0 

0.09167 

0.002 

___ 

— 

___ 

30.47 

0.921^ 

2260 

70.90 

4.0 

4.5 

0.466290 

0 

0.09167 

0.002 

___ 

— 

___ 

29.36 

0.960 

2263 

74.10 

1.75 

4.5 

0.466662 

0 

0.09167 

0.002 

— 

— 

29.64 

0.975 

2742 

1 52 . 1  5 
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0.1090 
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0.030 
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— 
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1 . 100 
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Figure  15.  Plenum  pressure  versus  time  for  subsonic  run  with 
medium  plenum  volume. 


Since  the  amount  of  plenum  volume  which  must  be  drawn  down  to  the  asymptotic 
pressure  may  logically  be  expected  to  have  a  first-order  impact  on  the  starting  time,  the 
plenum  volume  was  the  first  parameter  varied  from  the  nominal  conditions  for  Run  2258 
(Fig.  15).  Figures  16  and  17  show  the  plenum  pressure  for  a  smaller  plenum  volume 
ratio  (1.75)  and  a  larger  ratio  (4.0),  respectively.  As  expected,  the  smaller  volume  case 
flattens  more  quickly  than  the  medium  volume  case,  and  the  larger  volume  more  slowly. 
As  in  Fig.  15,  the  accuracy  of  the  model  is  generally  good  for  both  the  smaller  and 
larger  plenum  volumes,  though  the  effect  of  the  wave  propagation  time  in  the  plenum 
is  much  more  pronounced  for  the  larger  volume. 

Now  return  to  a  medium  plenum  volume  case  but  vary  another  parameter  -  plenum 
exhaust  -  for  a  slightly  supersonic  run.  The  theoretical  analysis  depends  on  an 
experimentally  derived  plenum  exhaust  area-time  curve,  shown  in  Fig.  18,  in  the 
nondimensional  form  used  by  the  computer  program.  Unfortunately,  the  uncertainty  in 
the  shape  of  this  curve  is  quite  large,  and  only  the  steady  area  is  known  accurately. 
Illustrated  in  Figs.  19  and  20  are  the  data  for.  two  supersonic  cases,  Mach  1.039  and 
1.228.  Both  the  theory  and  experiment  of  Fig.  18  show  a  slight  over-shoot  bottoming 
out  at  30  msec  and  then  approaching  the  asymptote  from  below.  In  addition,  the 
experimental  data  show  a  slight  rebound  peaking  at  60  msec,  a  result  not  predicted  by 
the  model.  The  rebound  probably  results  from  the  overshoot,  which  would  tend  to  draw 
the  test  section  below  its  asymptotic  pressure  while  the  plenum  exhaust  area  was  decreasing 
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Figure  16,  Plenum  pressure  versus  time  for  subsonic  run  witi 
small  plenum  volume. 


Figure  17.  Plenum  pressure  versus  time  for  subsonic  run  with 
large  plenum  volume. 
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Figure  18.  Plenum  exhaust  area-time  curve  for  Mach  1.039  run. 


Figure  19.  Plenum  pressure  versus  time  for  supersonic  run  (Mach  1.039) 
with  plenum  exhaust. 

to  its  steady  value  at  40  to  50  msec.  This  com_bination  of  occurrences  would  then  produce 
a  slight  refilling  of  the  plenum,  manifesting  itself  in  the  observed  rebound.  For  the  higher 
Mach  number  (1.288)  of  Fig.  20,  the  plenum  exhaust  curve  of  the  previous  case  was 
retained  intact  up  to  its  peak  but  was  linearly  stretched  beyond  the  peak  to  make  it 
approach  the  steady  area  needed  for  the  tunnel  to  reach  the  desired  asymptotic  Mach 
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number.  The  peak  area  and  closing  time  were  unchanged.  The  disagreement  between  theory 
and  data  at  the  knee  of  the  curve  may  be  charged  to  the  uncertainty  in  the  plenum 
exhaust  area-time  curve,  which  is  known  to  vary  somewhat  from  run  to  run  since  the 
plenum  diaphragm  rupture  is  not  precisely  repeatable. 


Figure  20.  Plenum  pressure  versus  time  for  supersonic  run  (Mach  1.228) 
with  plenum  exhaust. 

The  next  parameter  variation  for  which  the  model  was  tested  was  the  opening  time 
of  the  main  starting  device.  Figure  21  shows  the  data  and  theory  for  a  supersonic  run 
made  with  a  relatively  slow  opening  12-in.  shding  sleeve  valve  instead  of  the  diaphragm. 
Though  not  apparent  from  the  excellent  agreement  for  this  case,  there  is  also  some 
uncertainty  in  the  effective  opening  time  of  the  main  valve,  assumed  to  be  30  msec  for 
the  theoretical  calculation.  This  uncertainty  results  because  the  choke  point  of  the  tunnel 
changes  position  as  the  valve  area  increases,  moving  from  the  valve  to  the  nozzle  exit. 
Since  the  time  at  which  this  change  occurs  is  not  easily  determined  experimentally,  the 
exact  effective  opening  time  is  not  known.  In  addition,  the  area-time  curves  are  not 
precisely  repeated  from  run  to  run. 

To  continue  with  the  testing  of  the  model  for  variations  in  other  parameters,  the 
program  was  run  for  a  case  of  reduced  porosity  (1.5  percent),  maintaining  the  nominal 
conditions  of  medium  plenum  volume  and  flap  setting.  Figure  22  shows  that  the  model 
agrees  well  with  the  data.  Cases  were  also  run  for  which  the  flap  flow  area  was  halved 


40 


AEDC-TR-76-39 


Figure  23.  Plenum  pressure  versus  time  for  subsonic  run  with 
small  flap  setting. 


Figure  24.  Plenum  pressure  versus  time  for  subsonic  run  with 
large  flap  setting. 
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and  doubled  from  the  nominal  settings.  Illustrated  in  Figs.  23  and  24,  both  theoretical 
calculations  are  in  acceptable  agreement  with  experiment.  As  in  previous  cases,  the 
disagreement  just  above  the  knees  is  due  to  the  neglect  of  the  finite  wave  propagation 
time  across  the  plenum.  The  disagreement  very  early  in  the  run  (10  msec)  is  due  to 
uncertainty  in  the  rupture  time  of  the  diaphragm,  and  the  slowness  of  the  model  in 
approaching  the  asymptote  may  be  charged  to  inadequate  handling  of  the  momentum 
terms  in  the  crossflow  model. 

3.3  OTHER  RESULTS  FROM  THE  MATH  MODEL 

To  predict  the  data  of  primary  interest,  plenum  pressure,  the  model  must  also  calculate 
many  other  quantities  including  pressures  and  mass  flow  rates  at  various  locations  in  the 
tunnel.  Figure  25  shows  the  pressure-time  histories  for  the  case  of  nominal  plenum  volume 
(2.8)  for  a  subsonic  run  with  a  diaphragm  starting  device.  Besides  plenum  pressure,  the 
stagnation  pressure  and  static  pressures  at  opposite  ends  of  the  test  section  are  shown. 
This  graph  illustrates  that  the  test  section  pressure  initially  drops  much  faster  than  the 
plenum,  as  expected  since  the  rate  of  plenum  depletion  is  limited  by  the  porosity  and 
flap  area.  Early  in  the  run,  the  pressure  at  the  exit  of  the  test  section  leads  the  pressure 
at  the  entrance  because  the  wall  crossflow  leaving  the  plenum  increases  the  flow  rate 
from  the  entrance  to  the  exit.  Eventually,  of  course,  the  test  section  and  plenum  pressures 
approach  each  other  as  the  flap  and  wall  crossflows  become  negligible  and  the  steady 
conditions  are  reached.  The  stagnation  pressure  becomes  nearly  flat  long  before  the  static 
pressures  in  the  test  section  and  changes  very  slowly  beyond  20  msec. 

The  subsonic  case  in  Fig.  25  may  be  contrasted  to  the  supersonic  case  in  Fig.  26, 
which  shows  the  same  set  of  pressure  curves.  Besides  the  more  rapid  drop  of  all  curves 
prior  to  40  msec,  due  to  the  plenum  exhaust,  the  most  striking  difference  from  the  subsonic 
case  is  the  approach  of  opposite  ends  of  the  test  section  to  distinctly  different  asymptotes. 
The  entrance  to  the  test  section  levels  rather  suddenly  at  the  choking  pressure  ratio,  while 
the  exit  continues  to  drop  to  the  lower  pressure  ratio  corresponding  to  the  supersonic 
Mach  number.  Another  interesting  feature  is  that  the  asymptotic  pressure  at  the  test  section 
exit  is  lower  than  for  the  plenum  even  though  the  net  wall  crossflow  must  be  into  the 
plenum  (to  reduce  the  flow  rate  along  the  test  section  as  needed  for  supercritical  flow). 
Crossflow  against  the  pressure  gradient  occurs  because  of  the  increasing  momentum  retained 
by  the  crossflow  while  separating  off  from  the  high-speed  test  section  flow.  Another  feature 
oi  Fig.  26  due  to  this  momentum  is  the  crossing  of  the  test  section  pressure  curves  at 
12  msec,  which  signifies  the  reversing  of  the  wall  crossflow.  To  improve  the  crossflow 
model's  representation  of  the  effect  of  this  momentum  (which  is  neglected  in  modeling 
the  crossflow  rate  as  a  function  of  pressure  difference  only),  the  momentum  correction 
coefficient  Ais  in  Eq.  (7)  was  introduced.  This  quantity  expediently  models  the  small 
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Figure  25.  Various  pressures  versus  time  for  nominal  conditions. 


Figure  26.  Various  pressures  versus  time  for  supersonic  run  with 
plenum  exhaust. 
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additional  crossflow  due  to  momentum  in  terms  of  a  slightly  elevated  driving  pressure. 
The  steady-state  value  of  Ai  5  at  a  given  steady  test  section  Mach  number  was  derived 
empirically  for  a  given  steady  plenum  pressure.  These  steady-state  values  of  Ai  5  are  shown 
in  Fig.  27a.  During  a  run,  however,  Ai  5  was  assumed  to  vary  according  to  the  ramp 
function  of  Fig.  27b  to  simulate  the  increasing  momentum. 


a.  Momentum  correction  coefficient  (A15)  and  flap  correction  coefficient 
(Ais)  versus  steady  test  section  Mach  number 


b.  Assumed  variation  with  test  section  Mach  number  (Md)  of  momentum  (A15) 
and  flap  (Aie)  correction  coefficients  during  starting  process 

Figure  27.  Steady-state  values  of  correction  coefficients,  A15  and  Aie- 


Looking  at  the  mass  flow  rate-time  curves  corresponding  to  Figs.  25  and  26  provides 
further  insight  into  the  behavior  of  the  mathematical  model.  Figure  28  shows  the  flow 
rate  entering  (from  the  charge  tube)  and  leaving  the  test  section,  the  flow  rate  through 
the  flaps,  and  across  the  porous  wall  for  the  nominal  conditions  and  subsonic  flow.  The 
flap  and  wall  crossflows,  though  leaving  the  plenum  in  this  run,  are  shown  on  the  positive 
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axis  for  convenience.  All  data  are  expressed  as  ratios  of  the  steady,  asymptotic  flow  rate 
through  the  main  valves.  The  flow  in  the  test  section  is  seen  to  rise  very  rapidly,  in  concert 
with  the  breaking  diaphragm,  and  to  approach  the  final  flow  rate  only  as  the  flap  and 
crossflows  approach  zero.  Both  flows  from  the  plenum  reach  peaks  at  about  3  msec,  which 
results  from  the  pressure  differences  between  the  plenum  and  test  section  reaching  a 
maximum.  The  crossflow  further  manifests  itself  in  the  disparity  between  the  flow  entering 
and  leaving  the  test  section.  Various  experimentally  derived  flow  rates  are  given  in  Ref. 
4  for  the  pilot  tunnel.  These  relatively  well  behaved  results  for  the  subsonic  case  may 
be  contrasted  to  the  tangle  of  curves  resulting  from  a  supersonic  case  with  plenum  exhaust 
(Fig.  29),  which  is  based  on  the  same  conditions  as  Fig.  26.  Initially  similar  to  the  subsonic 
case  with  peak  flap  and  crossflows  at  3  msec,  the  curves  are  considerably  modified  by 
the  opening  of  the  plenum  exhaust  at  4  msec  (a  programmed  delay).  The  leveling  of 
the  flap  and  crossflow  curves  at  22  msec  is  associated  with  choking  in  the  test  section. 
Eventually,  the  plenum  exhaust  forces  both  the  crossflow  and  flap  flow  to  reverse  and 
eventually  to  exactly  balance  the  plenum  exhaust  flow  rate  when  steady  flow  is  reached. 
Reversal  of  the  flap  flow  requires,  in  terms  of  the  flow  model  (Eq.  (8)),  a  driving 
pressure  at  the  flap  exit  greater  than  the  plenum  pressure  and  in  general  greater  than 
the  computed  pressure  at  the  exit  of  the  test  section.  Though  the  flap  correction  coefficient 
(Ai  6 )  is  applied  much  like  the  wall  crossflow  coefficient,  the  physical  explanation  cannot 
be  the  same  since  the  free-stream  momentum  is  in  the  opposite  direction  of  the  reversed 


Figure  28.  Relative  theoretical  mass  flow  rates  for  nominal  conditions 
(Run  2258)  of  subsonic  flow  with  no  plenum  exhaust. 
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Figure  29.  Relative  mass  flow  rates  for  a  supersonic  run  (Mach  1.228) 
with  plenum  exhaust  (Run  2255). 

flap  flow.  A  more  likely  explanation  is  the  shock  structure  and  flow  separation  at  the 
diffuser  entrance.  Since  precise  modeling  of  this  complex  flow  is  beyond  the  scope  of 
the  present  work,  the  flap  flow  correction  coefficient  (Aig)  was  added  to  Eq.  (8). 
Experimentally  derived  values  of  Aie  as  a  function,  of  steady  test  section  Mach  number 
are  plotted  in  Fig.  27a  along  with  the  static  pressure  jump  across  a  normal  shock.  The 
pressure  rise  during  the  reversed  flap  flow  must  be  due  to  a  flow  more  complex  than 
a  normal  shock,  since  the  pressure  jump  across  the  shock  rises  much  more  rapidly  than 
experiment  indicates.  The  lines  through  the  circled  points  are  cubic  fits  and  are  probably 
not  accurate  beyond  Mach  1.25.  As  with  the  momentum  correction,  the  flap  correction 
was  assumed  to  vary  in  time  according  to  the  ramp  function  in  Fig.  27b. 

3.4  APPLICATION  OF  THE  MATH  MODEL 

Besides  prediction  of  tunnel  start  time,  there  are  several  other  ways  the  model  can 
be  applied  in  the  design  of  a  wind  tunnel.  Since  the  plenum  exhaust  area-time  curves 
can  be  varied  arbitrarily  in  the  model,  the  number  of  plenum  valves  (or  total  valve  area) 
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to  achieve  various  start  times  can  be  determined.  In  addition,  the  sensitivity  of  the  start 
time  to  the  shape  of  the  area-time  curves  can  be  predicted.  This  is  important  because 
it  indicates  how  finely  controllable  and  repeatable  (and  expensive)  the  valves  must  be. 
Another  potential  application  is  estimation  of  the  structural  loading  of  the  test  section 
wall  due  to  transient  pressure  differences  between  the  plenum  and  test  section. 

To  illustrate  some  of  these  possibilities,  the  program  was  run  for  the  three  different 
plenum  exhaust  area  time  curves  shown  in  Fig.  30.  The  solid  line  is  a  typical  area-time 
curve  from  Pilot  HIRT,  and  the  two  broken  lines  are  variations  having  the  same  average 
open  area.  Processing  the  model  with  the  triangular  curve  should  indicate  whether  a  curve 
with  the  same  peak  as  the  basic  curve  but  having  a  different  shape  would  significantly 
affect  starting  time.  The  trapezoidal  curve  should  indicate  whether  a  smaller  number  of 
valves  kept  at  full  open  for  a  longer  time  could  achieve  the  same  start  time  as  the  more 
peaked  curves.  The  plenum  pressure-time  histories  for  these  three  curves  are  shown  in 
Fig.  31.  It  is  clear  that  the  triangular  curve  has  little  effect  on  the  shape  of  the  pressure 
curve  and  does  not  affect  starting  time.  On  the  other  hand,  the  trapezoidal  curve  has 
a  larger  effect  but  still  does  not  lengthen  the  starting  time.  The  logical  conclusions  for 
the  tunnel  configuration  studied  here  is  that  very  accurate  controllability  is  not  required 
of  the  plenum  valves  and  that  the  tunnel  could  be  started  just  as  quickly  with  about 


Figure  30.  Nondimensional  equal  area  plenum  exhaust  area-time  curves. 
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2/3  of  the  available  valve  area  if  the  valves  were  kept  fully  open  for  a  longer  duration. 
If  these  results  were  found  to  apply  to  a  large  scale  facility,  a  considerable  cost  reduction 
could  be  realized. 


0  40  80  120  160  200 


Time,  msec 

Figure  31.  Pienum  pressures  versus  time  for  three  plenum  exhaust 
area-time  curves  with  same  integrated  area. 

A  second  example  of  application  of  the  model  is  illustrated  by  Fig.  32,  which  shows 
the  pressure  differential  across  the  wall  at  the  test  section  exit  as  a  function  of  time 
for  several  conditions.  From  these  results,  it  can  be  seen  that  reducing  the  porosity  has 
little  impact  on  wall  loading,  but  raising  the  Mach  number  from  0.921  to  1.228  or  reducing 
the  flap  gap  by  1/2  significantly  increases  the  loading  by  25  and  50  percent,  respectively. 
In  contrast,  lengthening  the  effective  valve  opening  time  from  2  to  30  msec  reduces  the 
peak  load  to  about  1/3  of  the  nominal  case.  The  peaks  of  the  curves  for  the  diaphragm 
runs  occur  just  as  the  diaphragm  reaches  its  full  open  area.  The  curve  for  the  valve  run, 
however,  peaks  first  when  the  plenum  exhaust  area  peaks  and  later  when  the  valve  reaches 
its  steady  area  around  30  msec.  Two  data  points  for  the  peak  pressure  differential  from 
Ref.  4  are  shown  in  Fig.  32  and  agree  with  the  model. 
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Figure  32.  Transient  loading  of  test  section  wall  at  exit  for 
nominal  conditions  and  selected  deviations. 

4.0  SUMMARY  AND  CONCLUSIONS 

A  mathematical  flow  model  for  the  process  of  starting  a  transonic  Ludwieg  tube 
wind  tunnel  has  been  developed.  The  present  model  uses  the  integral  continuity  equation 
for  three  specific  control  volumes,  the  steady  form  for  the  diffuser  and  test  section  control 
volumes,  and  the  unsteady  form  for  the  plenum.  The  solution  in  the  two  former  control 
volumes  also  uses  the  steady,  isentropic  energy  equation,  assumed  applicable  throughout 
the  diffuser  and  test  section  control  volumes  for  a  given  set  of  stagnation  conditions. 
However,  the  stagnation  conditions  are  allowed  to  vary  in  time  according  to  the  well-known 
exact  solution  for  an  unsteady,  one-dimensional  expansion  wave.  Application  of  this  model 
takes  the  form  of  a  numerical  solution  of  1 9  simultaneous  algebraic  equations  to  be  solved 
at  successive  time  points  until  the  flow  becomes  steady.  The  iterational  solution  procedure 
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for  these  exact  equations  becomes  nonconvergent  in  the  vicinity  of  choking  and  is  replaced 
with  an  analytical  solution  to  a  set  of  small  perturbation  equations  until  the  choke  point 
is  passed.  The  numerical  procedure  is  programmed  for  computer  solution. 

The  mathematical  model  was  evaluated  by  comparison  with  experimental  plenum 
pressure-time  histories  from  a  small  Ludwieg  tube  wind  tunnel.  Agreement  between  the 
model  and  experiment  was  found  to  be  good.  Other  numerical  results  from  the  computer 
model  were  also  presented  to  illustrate  application  of  the  model  to  design  of  a  large  facility. 
Specific  conclusions  drawn  from  the  present  study  include  (1)  verification  of  the  model's 
ability  to  predict  accurately  plenum  pressure-time  histories  and,  therefore,  tunnel  starting 
time;  (2)  prediction  that  starting  time  is  insensitive  to  the  precise  shape  of  area-time  curve 
of  the  plenum  exhaust  and,  therefore,  that  very  precise  controllability  is  not  required 
of  the  plenum  valves;  (3)  prediction  that  starting  time  is  not  significantly  lengthened  by 
even  large  changes  in  the  shape  of  the  plenum  exhaust  area-time  curve  if  the  area  under 
the  curve  and  open  time  are  maintained,  thus  permitting  considerable  reduction  in  the 
number  of  start  valves  suggested  by  data  from  the  pilot  facility;  and  (4)  verficiation  that 
aerodynamic  loading  of  the  test  section  walls  (and,  therefore,  the  support  structure)  can 
be  reduced  by  lengthening  the  opening  time  of  the  main  starting  valves,  within  limitations 
of  the  required  starting  time. 
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APPENDIX  A 

SMALL  PERTURBATION  SOLUTION 

This  section  presents  the  essential  details  of  the  small  perturbation  solution,  the 
knowledge  of  which  may  be  important  to  a  user  of  the  computer  program  HIRTSMl. 
Table  A-1  shows  the  small  perturbation  variables  and  the  exact  variables  they  represent. 
Use  of  the  expansions  (Eq.  (22))  in  the  exact  equations  listed  in  Table  1  produces  the 
approximate  small  perturbation  equations  listed  in  Table  A-2.  Definitions  of  the  coefficients 
Ai ,  Bi ,  Cl  if  needed,  should  be  extracted  directly  from  the  computer  program 
(subroutine  SMPERT)  where  they  are  coded  as  CAl,  CBl,  CCl,  ...,  respectively.  The 
equations  of  Table  A-2  can  be  solved  analytically  without  recourse  to  numerical  iterative 
procedures.  To  accomplish  this  task,  the  linear  equations  were  solved  algebraically  to 
eliminate  all  variables  except  those  contained  in  the  quadratic  equations,  Eqs.  (12)  and 
(13).  After  eliminating  all  variables  but  ei2  and  ei3  from  the  two  quadratics,  Eqs.  (12) 
and  (13)  were  converted  to  a  single  quartic  (subroutine  QSIMUL),  which  was  solved 
analytically  for  its  four  roots.  If  necessary,  the  reader  can  extract  the  algebraic  details 
of  this  procedure  from  the  computer  program.  The  correctness  of  the  algebra  has  been 
inferred  from  computation  of  residuals  from  the  equations  of  Table  A-2  (replacing  the 
zeros  on  the  right-hand  side  with  residuals).  For  all  cases  tested,  the  residuals  were  found 
to  be  on  the  order  of  the  computer's  accuracy  (~10'^^).  Similarly,  the  accuracy  of  the 
expansions  in  representing  the  exact  equations  was  tested  by  computing  residuals  from 
the  exact  equations  using  perturbed  values  for  the  variables.  The  largest  residuals 
(percentage  basis)  were  generally  less  than  10  '’. 
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Table  A-1.  Perturbation  Variables 


(a)variables  15  and  16  were  eliminated^ 
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Table  A-2.  Perturbation  Equations 


Program 

Equation 

Number^ 

Perturbation  Equation^ 

1 

2 

*2^2  +  ®2^17  +  ‘^2^Ape  +  ^2^9  ”  ° 

3 

^3^3  +  ®3^Af  +  +  036^2  =  0 

4 

^4^4  ^4^17  +  ^4^11  ”  0 

5 

^5^5  ®5^2  *^5^3  °5^4  +  ®5  “  ° 

6 

^6^6  +  ®6^4  +  ^6^7  ■  0 

7 

^7%  +  ®7^3  +  ^7H  “  0 

s 

*8^7  +  ®8^8  “  0 

9 

^9^9  ®9^8  “  ® 

10 

^10^10  ®10^8  “  ° 

11 

^11^11  *  ®11^13  ■*■  ^11^12  °  ® 

12 

^12^6  ■'■  ®12^14  *^12 ^**0*0^12  “  **€1^9^  ®12^**cto^l2  “  ^d^9^  “  ® 

13 

^13^7  +  ®13^14  +  -  PnCg)  +  ^13 <**0*0^13  "  ^11^9^^  “  °° 

14 

^4^14  +  ^14^  +  "^14^10  "  0 

17^ 

1 ^  1  ^  ^  ^  ^  ^ 

18 

^18^18  ^  ®18^5  ^  ^18  ® 

19 

^19^19  ®19^18  ■'■  ^19^17  “  ® 

Table  1  for  Corresponding  Exact  Equations 

(^)Refer  to  Listing  of  Computer  Program,  Subroutine 
SMPERT,  for  Definitions  of 

(<^)VariableB  ^cto'  Evaluated  at  t**'  -  At  As  Are 

All  the  Coefficients  Ai,  Bi,  ... 

(^)EquationB  15  and  16  Were  Eliminated 
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APPENDIX  B 

APPROXIMATED  EQUATIONS 


Reversion  of  Eqs.  (1 1),  (13),  and  (17)  requires  a  time-consuming  numerical  procedure 
which  has  a  major  impact  on  the  run  time  of  HIRTSMl.  To  reduce  the  number  of  iterations 
needed  for  the  reversions,  approximations  to  the  original  equations  were  used  to  provide 
accurate  initial  guesses  to  the  numerical  procedure.  Since  these  approximations  may  be 
of  general  interest,  they  are  listed  below.  A  good  approximation  to  the  mass  flux-Mach 
number  wave  equation  was  obtained  by  expanding 

/  \  - 
m  =  m(l  + 

in  a  series  of  powers  of  M  using  the  binominal  expansion.  Reversion  of  this  series  for 
7  =  1.4  then  produced 

M  =  m  -  1.200  +  2.0400  m®  +  4.0480  +  8.7965 

(B"2) 

+  20.106  m®  +  47.960  m'^  +  •  •  • 

where  m  =  m/ihc.  The  approximation  used  for  the  energy  equation  is  much  simpler  and 
was  discovered  quite  by  accident.  It  was  found  that  the  equation 


ni 

-2  ^  p2/y  _  ^  y 


(B-3) 


could  be  very  reasonably  approximated  over  the  interval  0  <  M  <  1.4  by  the  ellipse 


where 


and 


(B-4) 


p  =  p*  Sr  =  m*  forivi  =  1 
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APPENDIX  C 

DESCRIPTION  OF  THE  COMPUTER  PROGRAM  HIRTSM1 


Because  of  the  complexity  of  the  numerical  calculations,  potential  users  of  the  rnodei 
must  have  access  to  the  computer  program  (a  manual  calculation  on  a  scientific  calculator 
took  about  six  hours  to  step  through  five  time  increments).  For  this  reason,  a  listing 
of  the  source  deck  is  given  in  this  section  along  with  a  brief  description  of  its  content 
and  use.  Table  C-1  lists  the  15  subroutines  comprising  HIRTSMl.  Of  primary  interest 
are  the  routines  MAIN  and  SMPERT,  which  house  the  exact  model  equations  and  the 
small  perturbation  equations,  respectively.  Table  C-2  defines  some  of  the  more  important 
variables  used  in  the  program,  information  which  is  potentially  useful  if  a  program 
modification  is  necessary. 

Of  primary  interest  to  the  potential  user,  however,  is  the  input,  instructions  for  which 
are  Hsted  in  Table  C-3.  The  first  card  (NCTL)  allows  the  user  to  retain  manual  control 
over  some  of  the  superficial  program  logic.  While  intended  primarily  for  debugging  purposes, 
the  NCTL  variable  may  be  used  to  restart  a  run  previously  written  onto  a  data  file.  To 
make  a  normal  run  and  relinquish  all  control  to  the  program,  a  blank  card  may  be  used. 
The  second  card  (INSTR)  provides  the  means  to  invoke  certain  program  options  via  integer 
instructions.  Table  C-4  gives  a  set  of  values  which  have  been  used  successfully  to  date, 
though  occasional  adjustments  are  necessary  for  some  cases.  Of  particular  importance  for 
supersonic  cases  is  INSTR(26).  As  the  program  approaches  the  choke  point  in  the 
calculation  (timewise,  speaking),  the  number  of  iterations  (ITER)  for  convergence  always 
becomes  inordinately  large  (~100);  and  the  program  must  switch  to  the  small  pertubation 
solution  entirely  by  automatically  setting  INSTR(23)  =  2  when  ITER  >  INSTR(22). 
However,  for  supersonic  cases,  the  solution  is  often  not  close  to  its  asymptote,  and 
significant  error  can  accumulate  from  the  small  perturbation  solution.  To  reduce  this  error, 
INSTR(26)  may  be  used  to  direct  the  program  to  attempt  to  revert  back  to  the  exact 
solution  a  certain  number  of  time  increments  (the  input  value  of  INSTR(26))  beyond 
the  choke  point.  Sometimes  the  attempted  reversion  will  be  unsuccessful  because  the 
solution  is  either  still  too  close  to  the  choke  point  or  is  already  too  close  touts  asymptote; 
in  which  case  ITER  >  INSTR(22)  will  occur,  and  the  program  will  continue  with  the 
small  perturbation  solution.  When  this  situation  occurs,  the  exact  solution  is  not  given 
a  chance  to  correct  the  accumulated  error,  which  may  affect  the  asymptote  by  as  much 
as  10  percent.  If  this  result  is  encountered,  different  values  of  INSTR(26)  should  be  tried, 
since  even  a  temporary  successful  reversion  to  the  exact  solution  can  improve  the  accuracy 
of  the  solution  considerably. 

The  remaining  data  cards  constitute  primarily  a  description  of  the  tunnel  and  its 
geometry.  While  most  of  the  table  entries  are  self  explanatory,  some  of  them  deserve 
more  emphasis.  On  card  number  4,  the  values  of  A15  and  A16,  if  used,  should  be  entered 
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as  negative  to  invoke  the  use  of  ramps.  On  card  number  5,  the  weight  used  in  computation 
of  the  test  section  pressure  for  subsonic  flow  is  programmed  as  0.5.  The  input  value  is 
used  only  in  supersonic  flow.  On  card  number  6,  the  variable  A14  is  used  to  sort  the 
roots  from  the  quartic.  A  value  of  -0.2  has  been  found  more  effective  than  -0.1.  If  the 
root  sorting  logic  finds  more  than  one  value  of  ei3  acceptable,  the  program  will  halt 
in  bewilderment,  requiring  some  trial  and  error  adjustment  of  A14  by  the  user.  On  card 
number  7,  it  has  been  found  best  to  keep  $EMAX  <  PERR/10.  The  quantity  AlO  is 
used  to  obtain  debugging  information  when  T  >  AlO.  Following  card  number  10,  three 
separate  decks  for  the  nondimensional  area-time  curves  for  the  main  valves,  plenum  exhaust 
valves,  and  flaps  must  be  provided.  Each  deck  must  contain  the  number  of  cards  entered 
on  card  number  one.  The  times  and  areas  must  be  nondimensionalized  by  the  values  entered 
on  card  numbers  9  and  8,  respectively,  and,  therefore,  will  vary  only  between  zero  and 
one.  The  times  must  proceed  in  ascending  order.  Table  C-5  gives  recommended  values 
for  some  of  these  entries.  The  remaining  input  instructions  (II,  12,  ...)  may  be  ignored 
unless  NCTL  has  been  entered  as  other  than  zero,  in  which  case  the  user  is  invited  to 
decipher  the  program  logic  in  order  to  determine  the  endless  uses  to  which  this  option 
may  be  put. 

Table  C-6  presents  a  sample  job  stream  and  data  deck.  The  first  four  cards  are  peculiar 
to  the  computer  facility.  The  first  "GO"  card  designates  data  set  03  a  dummy  in  order 
to  suppress  debugging  printouts  sent  to  DSRN*  IDEBUG.  The  remaining  data  cards  may 
be  understood  via  Table  A-3. 

A  portion  of  the  output  from  this  run  is  shown  in  Table  A-7.  The  first  four  pages 
show  the  input  data  along  with  the  initial  values  of  most  program  variables.  In  addition, 
an  interpretation  of  the  INSTR(I)  options  selected  is  printed.  The  flow  area-time  curves 
are  the  redimensionaUzed  form  in  units  of  seconds  and  square  feet  (or  whatever  units 
are  used  in  the  input  data).  The  form  of  the  remaining  output  is  that  due  to  the  selection 
of  INSTR(5)  =  2  and  generally  displays  all  computed  properties  at  the  midpoint  or  end 
of  each  time  interval.  Each  five  lines  of  data  separated  by  a  space  corresponds  to  a  single 
time  interval,  and  each  block  of  five  numbers  corresponds  to  the  similarly  positioned  block 
of  five  variable  names  in  the  page  heading.  Interpretation  of  these  names  may  be 
accomplished  via  Table  C-2.  The  illustrated  run  went  to  180  msec,  generated  about  1,700 
records  (lines  of  print),  and  required  42.6  sec  of  central  processor  (CPU)  time  on  an 
IBM  370/165.  This  run  may  be  used  as  a  check  case  by  potential  users. 

Table  C-8  presents  a  machine  listing  of  the  final  source  deck.  All  necessary 
subprograms  are  included  except  those  available  from  the  IBM  subroutine  library  from 
which  HIRTSMl  uses  DABS,  DSQRT,  DSIN,  DCOS,  DATAN2,  CDSQRT,  and  CDABS. 


*Data  Set  Reference  Number 
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Table  C-1.  Description  of  Subroutines 
PRIMARY  MODEL  SUBROUTINES 


Subroutine 

Name 

MAIN 


SMPERT 


Function 

1.  Overall  program  control 

2.  Exact  model  equations 

3.  Convergence  control 

Small  perturbation  equations 


SPECIALIZED  UTILITY  SUBROUTINES 


INPUT 

CONST 

INIT 

DUMP 

PRINT 


Obtains  initial  data  from  DSRN  IIN 

Defines  certain  program  constants 

Initializes  certain  program  variables 

Prints  out  all  program  variables  at  beginning 
and  end  of  run  and  as  needed  for  debugging 

Prints  numerical  solution  and  controls  paging 


GENERAL  UTILITY  SUBROUTINES 


SOLVER 


Provides  logic  for  numerical  reversion  of  a 
function  (see  Fig.  10) 


BINOM 

REVERT 

QSIMUL 

QANDC 

CUBRT 

DREAL 

DIMAG 


Expands  a  binomial  to  seven  terms 

Reverts  a  series  to  seven  terms 

Converts  two  conics  to  a  quartic 

Computes  the  exact  roots  of  a  quartic 

Computes  the  exact  roots  of  a  cubic 

Returns  the  real  part  of  a  double  precision 
complex  number 

Returns  the  imaginary  part  of  a  double  pre¬ 
cision  complex  number 
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Table  C-2.  Definition  of  Major  Program  Variable 


REAL  ARRAYS 


Variable 

Name 

Definition 

AREA 

Input  nondimensional  area-time  curves  for 
main  valves,  flaps,  and  plenum  exhaust  valves 

AREATS 

Interpolated  areas  for  time  t* 

AREAM 

Peak  of  area-time  curves  (dimensional) 

TV 

Nondimensional  times  for  area-time  curves 

’  E 

Convergence  criteria  errors 

TVF 

Total  time  for  main  valves,  flaps,  and  plenum 
exhaust  valves  (dimensional) 

TDELAY 

Delays  times  for  first  motion  of  valves  and 
flaps 

RW 

Coefficients  for  the  reverted  expansion  of 
the  mass  Flux-Mach  number  wave  equation 

V 

Array  equivalenced  to  major  property  values 

RSTO 

Array  equivalenced  to  certain  real  commoned 
variables  to  simplify  writing  of  solution 
onto  a  storage  device  lor  restarting  a  run 

ISTR 

Array  equivalenced  to  certain  integer  vari¬ 
ables  for  storage  and  restarting 

REAL  SCALARS 

Pxi 

Pressure 

MDxi 

Mass  flow  rate 

Txi 

Temperature 

Rxi 

Density 

Mxi 

Mach  number 

Axi 

Flow  areas 
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x-codes : 

X  =  N 
=  p 
=  PT 

=  D 
=  T 
=  CTO 
=  CT 
=  E 
=  F 
=  PE 
=  C 

i  -  codes: 
i  =  blank 

i  =  1 
i  =  2 
i  -  3 
G 
R 

PMR 

KF 

KW 

TSL 

TSH 


Table  C-2.  Continued. 

Nozzle  exit  (test  section  entrance) 

Plenum 

Plenum  at  time  t  (PPT)  or  wall  crossflow 
(MDPT) 

Diffuser  entrance  (test  section  exit) 

Test  section  midpoint  (PT) 

Stagnation  condition,  charge  tube 
Charge  tube 
Main  valve  exit 
Flaps 

Plenum  exhaust 
Charge  conditions 

Values  at  current  time  interval  and  current 
iteration 

Converged  values  from  last  time  interval 
Values  from  last  iteration,  current  interval 
Scratch  area 
Specific  heat  ratio  (T) 

Ideal  gas  constant 
Error  limit  on  pressures 
Flap  flow  coefficient 
Wall  crossflow  coefficient 
Test  section  length 
Height 
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TSW 

TSP 

TSA 

TSWA 

TSV 

CTD 

CTA 

PV 

PVOTSV 

TAUW 

T 

T1 

DT 

TSTK 

TSTOP 

Ai 

INTEGER 

INSTR 

NVT 

INTEGER 
I DEBUG 

IIN 
I  OUT 

ITER 


Table  C-2.  Continued. 

Width 

Perimeter 

Flow  area 

Wall  surface  area 

Volume 

Charge  tube  diameter 
Charge  tube  flow  area 
Plenum  volume 

Plenum:  test  section  volume  ratio 

Porosity 

Time  at  end  of  current  interval  (t) 

Time  at  end  of  last  interval  (t  -  At) 

Time  increment 

Midpoint  of  current  interval  (t*) 

Time  for  termination  of  run 
Miscellaneous  program  constants 

ARRAYS 

Program  control  instructions  (see  input) 

Number  of  time  points  in  each  of  three  input 
area-time  curves 

SCALARS 

Data  set  reference  number  (DSRN)  for  debugging 
output,  normally  dummied 

DSRN  of  input  data  (usually  05  for  card  reader) 

DSRN  of  primary  output  data  (usually  06  for 
line  printer) 

Number  of  iterations 
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NP 

IFLGi 


Table  C-2.  Concluded. 


Printing  time  interval 
Miscellaneous  program  control  flags 


Table  C-3.  Description  of  Program  input 
a.  Main  Program 


Variable 

Index 

Value 

Action 

Default 

Value 

Format 

NCTL 

0 

Proceed  through  normal  programmed  solution  procedure 

0 

13 

1 

Read  INSTR(*) 

2 

Write  heading 

3 

Read  data  file  and  print  results 

4 

Proceed  to  normal  calculation 

5 

Call  INPUT 

6 

Call  INIT 

7 

Call  CONST 

8 

Call  DUMP 

9 

Call  SOLVER 

10 

Call  PRINT 

11 

Call  BINOM 

12 

Call  REVERT 

13 

Stop 

INSTR 

1 

06 

Print  debugging  data 

2613 

03 

Skip  debugging  prints  (DSRN  03  Is  Dummy) 

03 

(One  Card) 

2 

05 

Input  DSRN 

05 

3 

06 

Output  DSRN 

06 

4 

Printing  time  interval 

1 

5 

1 

Pressures  in  psf 

2 

Pressures  in  psi 

2 

6 

o  o 

Call  PRINT  on  every  iteration  ) 

call  PRINT  on  ON  convergence  1  ’  1°“’' 

0 

7 

1 

Extrapolate  to  next  time  interval  as  an  initial  guess 

2 

Do  not  extrapolate 

2 

8 

1 

Use  reverted  series  from  mass  flux  -  Mach  number  wave  equation 

2 

Use  second-degree  approximation 

1 

9 

1 

Use  Iterative  solution  to  energy  and  wave  equations 

2 

Use  approximate  expansions  for  energy  and  wave  equations 

1 

10 

1 

Average  current  value  with  previous  average  value 

2 

Average  current  value  with  previous  unaveraged  value 

0 

Do  not  invoke  option 

0 
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Table  3.  Continued 
a.  Concluded 


Variable 

Index 

Value 

Action 

Default 

Value 

Format 

INSTR 

11 

>0 

Iteration  limit  beyond  which  current  weight  is  halved 

0 

12 

1 

Do  not  invoke  option 

>1 

Divide  error  limits  PERR  and  $EMAX  by  INSTR(12)  if  the  fractional 
difference  between  successive  time  intervals  is  less  than 
(errors)  x  (INSTR(12)) 

1 

13 

,<0 

Print  only  time  and  pressure  data 

0 

Print  everything 

14 

>1 

Set  DT  =  DT+INSTR(14)  based  on  INSTR(12)  ceiteria,  do  not  cut 
error  limits 

1 

Do  not  invoke  option 

1 

15 

/03 

Read  solution  from  DSRN  -  INSTR(15),  skip  other  input 

03 

Do  not  read  solution 

03 

16 

[1,1000]^ 

First  record  number  to  be  read 

0 

17 

[1,1000] 

Last  record  number  to  be  read 

0 

18 

7^03 

Write  solution  on  DSRN  =  INSTR(18) 

03 

Do  not  write  solution 

03 

19 

[1,1000] 

First  record  number  to  be  written 

0 

20 

0 

Do  not  invoke  option 

>0 

When  weight  is  halved,  increment  INSTR(ll)  by  INSTR(20) 

0 

21 

0 

Do  not  invoke  option 

/o 

Set  INSTR(7)  =  2  to  extrapolate  next  time  interval  when  weight 
is  halved 

0 

22 

0 

Do  not  invoke  option,  set  INSTR(22)  =  2^1-1 

>0 

Set  INSTR(23)  «  2  when  number  of  iterations  >  INSTR(22) 

9999999 

23 

0 

Do  not  use  small  perturbation  expansion 

1 

Use  small  perturbation  initial  guess  for  next  time  interval 

2 

Use  small  perturbation  expansions  as  solution 

0 

24 

^0 

SMPERT  prints  small  perturbation  results 

0 

Does  not  print  without  error 

0 

25 

1 

Use  isentropic  solution  in  plenum 

2 

Use  anisentropic  solution  in  plenum 

2 

26 

0 

Do  not  invoke  option 

1 

>0 

Revert  to  exact  equation  after  the  input  number  of  time 
increments  beyond  choking 

9999999 

®^Square  brackets  []  indicate  the  range  of  the  variable. 
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Table  3.  Concluded 
b.  Subroutine  INPUT 


Variable , 
units 

Card 

Numbers’ 

Value 

Meaning 

Default 

Value 

Format 

NVT(l) 

1 

[2,50] 

Number  of  area-time  points  for  main  valve 

2613 

NVT(2) 

[2,50] 

Number  of  area-time  points  for  plenum  exhaust  valve 

NVT(3) 

[2,50] 

Number  of  area-time  points  for  flaps 

PC,  psia 

2 

Charge  pressure 

5B16.8 

TC,  Or 

Charge  temperature 

TSL,  ft 

3 

Test  section  length 

5E16.8 

TSH,  ft 

Test  section  height 

TSW,  ft 

Test  section  width 

CTD,  ft 

Charge  tube  diameter 

PVOTSV 

Ratio  of  plenum  volume  to  test  section  volume 

TAUW 

4 

Porosity  (fraction,  not  percent) 

5E16.8 

KW,  ft/sec 
KF,  ft/sec 

Wall  crossflow  coefficient  i 

Flap  flow  coefficient  (  Varner’s  flow 

model 

A15b 

Crossflow  constant  MDPT  =  -AWOKW  x  (PP  -  A15  x  PT) 

1.0 

Aie^ 

Flap  flow  constant  MDF  =  -AF/KF  x  (PP  -  A16  x  PD) 

1.0 

A17 

5 

>0 

Test  section  pressure  weight,  PT  =  A17  x  PD  +  (l.DO 

-  A17)  X  PN 

1.0 

5E16.8 

R,  ft2/sec2-.OR 

6 

Perfect  gas  constant 

5E16.8 

G 

Ratio  of  specific  heats  (y) 

All 

(0,1)^ 

Fraction  of  new  values  to  be  accepted 

0.5 

A13,  sec 

Set  1NSTR(23)  “  2  When  T  >  A13 

1.D70 

A14 

el2  and  el3  limits 

-0.1 

DT,  sec 

7 

Time  increment  for  numerical  calculation 

5E16.8 

TSTOP,  sec 

Time  to  halt  calculation 

lEMAX 

PERR 

(0,1) 

(0,1) 

Maximum  allowable  error  -  used  in  SOLVER/ 

Maximum  allowable  error  -  used  in  MAIN  i  fractions, 

not  percent 

AlO,  sec 

Time  at  which  INSTR(6)  is  set  different  from  zero 

1.D70 

AREAM(l),  ft2 

8 

Maximum  main  valve  flow  area 

5E16.8 

AREAM{2),  ft2 

Maximum  plenum  exhaust  flow  area 

AREAM(3),  ft2 

Maximum  flap  flow  area 

TVF(l),  sec 

9 

Final  time  in  main  valve  area-time  curve 

5E16.8 

TVF(2),  sec 

Final  time  in  plenum  exhaust  area-time  curve 

TVF(3),  sec 

Final  time  in  flap  area-time  curve 

TDELAY(l),  sec 

10 

Time  delay  for  main  valve 

5E16.8 

TDELAY(2),  sec 

Time  delay  for  plenum  exhaust 

TDELAY(3),  sec 

Time  delay  for  flaps 

TV(1,I) 

AREA (1, I) 

\) 

)  )  ( 

(  main  I 

1  valve  / 

2E16.8 

TV(2, I) 

AREA (2, I) 

>  (o.,l.l 

[  Nondimensional  time  (final  1.0)  and  (  .  / 

/  nondimensional  area  (maximum  =1,0)  /  or  < 

/  plenum  1 
(  exhaust  ) 

TV(3,I) 

AREA (3, I) 

) 

)  )  ( 

1  flaps  1 

lid 

1 

0 

Return  1  \ 

1 

Read  ISTR(I2)  j 

2 

Read  RSTR (12)  >  one  card 

3 

Read  V(I2, 13)  1 

12 

Indices  of  array  elements  to  be  read  ^ 

13 

2613 

ISTR 

RSTR 

V 

>1 

>1 

>1 

1  Enter  one  per  card  each  preceded  by  a 

>  no,  1  card  above  -  see  common  and 

)  equivalence  statements  to  determine  indices 

13 

E16.8 

E16.8 

Order  la  Input  Deck 

^Tf  than  Zero,  Ramps  of  Fig.  27b  Will  Be  Used 

<3Round  Brackets  Exclude  End  faints 
dTtaeae  Cards  (fitted  Unless  NCTL  ^  0 

Hot®:  If  INSTRCS)  “  1,  any  set  of  units  for  which  «  1  in  F  l/gg  aa  will  work  properly. 
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Table  C-4.  Suggested  Values  for  INSTR(I) 


I 

Suggested  Value  of 
INSTR  (I) 

1 

03 

2 

05 

3 

06 

4 

01 

5 

02 

6 

00 

7 

02 

8 

01 

9 

01 

10 

01 

11 

40^ 

12 

10 

13 

0  or  1 

14 

01 

15 

03 

16 

00 

17 

00 

18 

03 

19 

00 

20 

10^ 

21 

00 

22 

01 

23 

01 

24 

00 

25 

02 

26 

09a 

(3')Adjustment  May  Be  Necessary  for  Specific 
Cases 
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Table  C*5.  Recommended  Values  for  Certain  Variables 


Variable 

Names 

Recommended  Value 

KW,  KF 

See  Fig,  7 

A15,  A16 

See  Fig.  27a,  Enter  Negative 

All 

0.5  or  Leave  Blank 

A13 

Leave  Blank 

A14 

-0.2 

A17 

0.9 

PEER 

0.49999999E-04 

$EMAX 

0.49999999E-05 

Table  C-6.  Sample  Jobstream  and  Input  Data  Deck 


/»PRI0RITY  2 

//VKP05U5  J08  (flRO, 

//  VRV000<»0  901»V37a»3l6)  ilO9«52SHORE»^SGLEVEL»(2»0)  9CLaSSsa,T!ME»3 

//  EKEC  FORTEPDS«PGMNO=VR«O0O90 

//go,fto3p6oi  do  dummy 
//GO.FTOSFOOl  00  • 

000 

02  01  20  SO  SO  00  20  01  00  09 


02  10  02 
0.15215000E*03 
a.lHOOOOOE  00 
0,0«OOOOOOE  00 
0,9000006oE  00 
0.l71?6080E't'04 
O.OOlOOOOOE  00 
0.4659ill6E  00 
0,03000000E  00 
O.OOOQOOOOE  00 

o.oooooonoE  00 

l.OOOOOOOOE  00 
O.OOOOOOOOE  00 
0.164000<)OE  00 
0.2000006oE  00 
0.30000000E  00 
0»4500006oE  00 
OsSOOOOOOOE  00 
O.ObOOOOOOE  00 
O.SOOOOOOOE  00 
O.OOOOOOOOE  00 
l.OOOOOOOOE  00 
O.OOOOOOQOE  00 
l.OOOOOOOOE  00 


0.B3000©00E*03 
0,6U70000E  00 
0,3!000006e*03 

I.40000000E  00 

o.ieooooooE  00 

0.903717UE  -1 
0a04000000E  00 
O.OOSO0OOOE  00 
O.OOOOOOOOE  00 
l.OOOOOOOOE  00 
O.OOOOOOOOE  00 
0.92300000E  00 

o.oeooooooE  00 

l.OOOOOOOOE  00 
O.99298055E  00 

e.97332eoaE  00 

0.64902737E  00 
0.52478305E  00 
0.498I0913E  00 
O,406878O1E  00 
l.OOOOOOOOE  00 
l.OOOOOOOOE  00 


0.76330000E  00 
O.2OO0OOOOE®O3 


0.49999999E“05 
0.09167000E  00 
O.OOOOOOOOE  00 
O.OOOOOOOOE  00 


1.S6200000E  00 
^1.04988410E  00 

0.49999999E“04 


2.5000O9OOE  00 
-i.08312800E  00 

-0.20000000E  00 


/« 
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TABLE  C-7 

SAMPLE  OUTPUT  FROM  HIRTSM1  FOR  RUN  2742 
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0,165218340-01  0,144000000  03  0.694444440-02  0.570703700  00  0.172800000  01  0,471718210  00  0^166586840  00  -0,285714290  00 


6 

GNl 

GPl 

6N102 

GP102 

OOG 

GM106 

GPIOG 

0, 14UOOOOOO 

01 

0,400000000  00 

0,240000000 

01 

0.20000U00D 

00 

0,120000000 

01 

0.714285710 

00 

0.285714290 

00 

0,171428570 

01 

606WI 

GOGPl 

SGMi02 

TOG 

T06P1 

OOGNl 

GPOGMl 

GP6N12 

0«35UOOOOOD 

01 

0.563333330  00 

0,447213600 

00 

0,14285(140 

01 

0,633333330 

00 

0,250000000 

01 

0.600000000 

01 

0,300000000 

01 

TOGWl 

MGPGM2 

mgpogm 

OOGPl 

R 

OOR 

GR 

0T02 

0»5OP00000O 

01 

-0.300000UOD  01 

-0,600000000 

01 

0,416666670 

0,171/60800 

04 

0,562205020-03 

0,240465120 

04 

0,500000000-03 

OTOPV 

PQ5F  . 

INFIN 

..  .  OOAl 

JIQOT 

M60GN1 

TMGOGS 

GPQ2G5 

0.^0524836D-w3 

0.50000000D-02 

0.99999945D 

70 

0,605259680 

02 

O.IOOOOOOOD 

04 

-0,350000000 

01 

0.306122450 

00 

0,612244900 

00 

S60R 

0.285497290-01 

'  equivalence 

ARRAT 

0.152150000 

03 

0,152150000  03 

0,152150000 

03 

0,152150000 

03 

0,152150000 

03 

0,152150000 

03 

0,152150000 

03 

0,0 

0.0 

0,0 

0,0 

0,0 

0,0 

0,126862200 

0? 

0,288138010 

02 

0,530000000 

03 

U.S30000000 

03 

0.530000U0D  03 

0,530000000 

03 

0.240676960-01 

0.240676960-01 

0,240676960-01 

0.240676960-01 

0,112892210 

04 

0.0 

0,0 

0.0 

0,0 

0,0 

0,0 

0,152150000 

03 

0,152150000 

03 

0.152150000 

03 

0,152150000  03 

0.15215000D 

03 

0,152150000 

03 

0,152150000 

03 

0,0 

0,0 

0,0 

0.0 

0,0 

0,0 

0,126662200 

02 

0,268138010 

02 

0,530000000 

03 

0,530000000 

03 

0,530000000 

03 

0.53000000D 

03 

0.240676960-01 

0.24067696D-01 

0,240676960-01 

0,240676960-01 

0,112892210 

04 

0,0 

0,0 

0,0 

0,916700000-01 

0,0 

0,0 

0,152150000 

03 

0,152150000 

03 

0,152150000 

03 

0,152150000 

03 

0,152150000 

03 

0.152150000  03 

0,152150000 

03 

0,0 

0,0 

0,0 

0,0 

0,0 

0,0 

0,126662200  02 

0,288138010 

02 

0,530000000 

03 

0,530000000 

03 

0.530000000 

03 

0,530000000 

03 

0,240676960-01 

0.240676960-01 

0,240676960-01 

0.240676960-01 

0.112692210 

04 

0.0 

0,0 

0,0 

0,0 

0,0 

0,0 

0,152150000 

03 

0.152150000 

03 

0,152150000 

03 

0.152150000 

03 

0,152150000 

03 

0,152150000 

03 

0,152150000 

03 

0,0 

0,0 

0,0 

0,0 

0.0 

0,0 

0,126662200 

02 

0,288136010 

02 

0,530000000  03 

0,530000000 

03 

0,530000000 

03 

0,530000000 

03 

0,240676960-01 

0,240676960-01 

0,240676960-01 

0,240676960-01 

0,112892210  04 
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T 

PCTO 

MDF 

ICTO 

£(1) 

TbTR 

PEO 

MOt 

RP 

E(2) 

n 

MCT 

MOPE 

RPT 

E(3) 

PT 

MU 

MOTSO 

HtO 

£(4f 

PP 

MN 

MOCTO 

RCTO 

EC5) 

PD 

MDCT 

TP 

AE 

E{6) 

PN 

MOPT 

TPT 

APE 

E(7) 

PPT  NO 

HDD  NM 

TEO  NCT 

AF  ITER 

OT  Ji6 

0 

»640000D-ai 

0.635000D-01 

0.6300000-01 

0.5466440  02 

0.5627520  02 

0.5421010 

02 

0,5875260  02 

0.5617450  02 

11 

0 

.lll2lbU  03 

0.107B460  03 

0. 2657420  00 

0.1067500  Ol 

0,1000000  01 

'  0.5612080 

01 

0,2049460-01 

0.559156D  01 

u 

0 

.1611310  UO 

0.5430430  01 

-0.2676060  00 

0.9697670  01 

0,2202600  02 

0.4846050 

03 

0.4846050  03 

0.4646050  03 

0 

0 

•  <»B46050  u3 

0.9735710-02 

0.9718290-02 

0.1065760-01 

0.1924040-01 

0.4659110 

00 

0,4400000-01 

0.9167000-01 

3 

0 

.0 

0.4265U6D-06 

0.8545420-06 

0.3978110-05 

0.3550550-05 

0.0 

0,2230810-05 

O.lOOOOOD-02 

-i 

0 

o6S0000O-ul 

0.6450000-01 

0.640000D-01 

0.5454290  02 

0,56060X0  02 

0.5407510 

02 

0.5875280  02 

0.5596570  02 

12 

0 

•  1U21SD  03 

0.1077580  03 

0.2657420  00 

0.1069540  01 

O.iOOOOOO  01 

0.5612000 

01 

0.2173480-01 

0.5590340  01 

0 

0 

.1643570  00 

0.5425980  01 

-0.2666790  00 

0.9697670  01 

0.2202600  02 

0.4846050 

03 

0.484605D  03 

0.4846050  03 

0 

u 

•4846050  03 

0.9701960-02 

0.9685630-02 

0.1064230-01 

0.1924040-01 

0. 4659110 

00 

0,4400000-01 

0.9167000-01 

4 

0 

.0 

0.1672130-06 

0.334989D-06 

0.1565000-05 

0«1396420-05 

0.0 

0.8438320-06 

0. 1000000-02 

-i 

0 

•6600000-01 

0.6550000-01 

0.6500000-01 

0.5443010  02 

0.5589730  02 

0.5394980 

02 

0.5875280  02 

0.5580900  02 

8 

0 

.1112150  03 

0.1076730  03 

0.2657420  00 

U. 1071450  01 

0.1000000  01 

0.5612000 

01 

0.229177»D-01 

0.5589160  01 

0 

0 

.1674650  00 

0.5421710  01 

-0.26581UD  00 

0.9697670  01 

0.22026UO  02 

0.4846050 

03 

0.4846050  03 

0.4846050  03 

0 

0 

•4046050  03 

0.9670340-02 

0. 9655060-02 

0.1862760-01 

0.1924040-01 

0.4659110 

00 

0.4400000-01 

0.9167000-01 

3 

0 

•  U 

0. 1712640-06 

0.3430700-06 

0.1588540-05 

0.1417070-05 

0.0 

0,9403770-06 

O.lOOOOOD-02 

-1 

0 

.6700000-01 

0.6650UOO-01 

0. 6600000-01 

0.5432540  02 

Q. 55/2640  02 

0.5383350 

02 

0,5875230  02 

0.5564380  02 

9 

0 

.1112150  03 

0.1075910  03 

0.2657420  00 

0.1073220  01 

O.IOOOOOO  01 

0.5612080 

01 

0.2403710-01 

0.558804D  01 

0 

u 

.1704260  00 

0.5417610  01 

-0.2649970  00 

0.9697670  01 

0.2202600  02 

0.4046050 

03 

0.4846050  03 

0.4846050  03 

0 

u 

.4846050  03 

0.9640770-02 

0.9626480-02 

0.1661350-01 

0.1924040-01 

0.4659110 

00 

0,4400000-01 

0.9167000-01 

3 

0 

0  0 

0.17B7030-06 

0.3579370-06 

0.1651500-05 

0.1472690-05 

O.Q 

0,1012350-05 

0. 1000000-02 

-1 

a 

.6800000-01 

0.675000D-01 

Q.67GO0OD-OI 

0.5422850  02 

Q.55S666D  02 

0.5372580 

02 

0.5875280  02 

0.5548950  02 

9 

D 

.1112150  03 

0.1075UO  03 

0.2657420  00 

0.1074850  01 

O.IOOOOOO  01 

0.561208D 

01 

0.251023D-01 

0.5536960  Ol 

0 

0 

.1732740  00 

0.5413710  01 

-0.2642370  00 

0.9697670  01 

0,2202600  02 

0.4846050 

03 

0,4846050  03 

0.4846U5D  03 

0 

0 

.4046050  03 

0.9613130-02 

0.9599790-02 

0.1660010-01 

0.1924040-01 

0.4659110 

00 

0,4400000-01 

0.9167000-01 

2 

0 

.0 

0.2332980-06 

0.4772590-06 

0.2235760-05 

0.1993530-05 

0.0 

0.1132110-05 

0.1000000-02 

-1 

0 

.6900000-01 

0.6850000-01 

0.68UOOOD-O1 

0.5413870  02 

0.5541750  02 

0.5362600 

02 

0.5075280  02 

0.5534560  02 

11 

0 

.1112150  o3 

0.1074400  03 

0.2657420  00 

0.1070380  01 

0.1000000  01 

0.5612080 

01 

0.2610840-01 

0.5585970  01 

0 

Q 

.1759790  00 

0.5409990  01 

-0.2635280  00 

0.9697670  01 

0.22026UO  02 

0.4846050 

03 

0.484605D  03 

0.4846050  03 

0 

0 

.4846050  03 

0.9587340-02 

0.9574890-02 

0.1858730-01 

0.1924040-01 

0.4659110 

00 

0,4400000-01 

0.9167000-01 

2 

0 

.0 

0.7187900-08 

0.  l<^3945D-07 

U. 4101050-07 

0.3655990-07 

0.0 

0. 2058240-06 

0.1000000-02 

-1 

0 

.7000000-01 

0.6950000-01 

0.6900000-01 

0,5405550  02 

0.5527850  02 

0.5353350 

02 

0.5875280  02 

0.552114D  02 

5 

0 

.1112150  03 

0.1073700  03 

0.2657420  00 

0.1077780  01 

0.1000000  01 

0.5612080 

01 

0.2/05730-01 

0.558502D  Ol 

0 

0 

.17654/0  00 

0.5406470  01 

-0.26286/0  00 

0.969/670  01 

0-2202600  02 

0,4846050 

03 

0.4846050  03 

0.4846050  03 

0 

0 

.4846050  03 

0.9563290-02 

0.9551680-02 

0.1857520-01 

0.1924040-01 

0.4659110 

00 

0.440000D-01 

0.9167000-01 

2 

0 

.0 

0^1750020-06 

0.3504300-06 

0.1621850-05 

0.14455/0-05 

0.0 

0,9484120-06 

0.1000000-02 

-1 

0 

•7100000-01 

0.7050000-01 

0. 7000000-01 

0.5397850  02 

0.551490D  02 

0.5344800 

02 

0,5875280  02 

0.5506650  02 

11 

0 

.1112150  03 

0.1073U4D  03 

0.2657420  00 

0.10790.90  01 

O.IOOOOOO  01 

0,5612080 

01 

0.2795090-01 

0.5584130  01 

0 

ii 

.1609760  00 

0.5403140  01 

-0.262251D  00 

0.969/670  01 

0.2202600  02 

0.4846050 

03 

0.4846050  03 

0.4846050  03 

0 

•4846050  03 

0.9540880-02 

0.9530070-02 

0.1856380-01 

0.1924040-01 

0.4659110 

00 

0.4400000-01 

0.9167000-01 

2 

0 

•  0 

0.226083D-06 

0.4526780-06 

0.2071580-05 

0.1346100-05 

0.0 

0. 1370530-05 

0.1000000-02 

-1 
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main 


DATE  »  75157 


ll/5B/*0 


C  HIRTSMl  -  MIRT  STaRTINR  MODEL 
_ IMEUICU.  REAL»8  (A°H>MiO-ZtSr  ■ 


COMMON  aREA(3»50) .AREaTSO) «AREAM(3) ♦ TV ( 3»50 ) . A ( 1 0 » .E ( 7 ) , B ( 30) ♦ 

I .  T.Vf  ( 3).«  T 3£LAY  L31i.RWm, 


COMMON  PC,RC*TC»AC*MDCTC.FA<3) 
1  SOOR 


«MDTSTR,INFIN.TMB06SfGP02GS. 


COMMON  G»GM1 »GP1*006«6P102«6M102*OP106»6M106*60GP1»608M1* 
_L  OOGMl .OOGPl .GPOGMl .SGMl OP.TOGMl .TOG.HGPGMg.TOGPI .GPGM17. 

2  MGPOGM.MGOGMl .R*GR*00R»PI ♦PERRtAWOKWt OOAl »OOKF*KF*KW 
common  TSLI.TSM.TSW»TSP.T5A.TSWAtTSV.CTD.CTA.PV.PVnT5V.TAllW 
COMMON  T»n .OT»TSTR»OT02«TSTOP.OODT*OTOPV 


COMMON 

PN  t 

PP  t 

9  HQff  A  f  9  i 

PPT  f 

PO  .  PT  .  PCTO  . 

PEO  9 

.SJaJUEULM  1  f 

MOE  9 

»  MOD  « 

MOF  9 

MOPT  . 

MOCT  « 

MOPE  «MOTSO  fMOCTO  * 

TEO_  r 

TP  « 

TCTO  9 

RP  9 

RPT  9 

REO  «  RCTO  ♦  ACTO. 

MCT  « 

AE  9 

-  ape  « 

AF  « 

MN  9 

Mn 

COMMON 

PNl  f 

PPl9 

PPTU 

POif  PT1»  PCTOU 

PEOl. 

MDEl. 

«  MOOlo 

MOFl  « 

MOPTl. 

Morn  0 

MOPE 1 . MOTSO 1 .MOCTOl . 

TEOl. 

_  TPl9 

-  TPTl. 

TCTOl. 

RPl9 

RPTU 

REOl.  RCTOl.  ACTOI. 

MCTl. 

AEl. 

-  a»E1. 

AF 1  « 

mi  9 

MDl 

COMMON 

PN29 

PP2  9 

PPT29 

P02.  PT2.  PCT02. 

PE  02. 

M0E29 

-  Mooa® 

M0F29 

M0PT29 

MDCT29 

MOPE2.MDTS02.MOCT02. 

TE02. 

TP29 

-  TPT2r 

TCT02. 

RP2. 

RPT29 

RE02.  RCT02.  ACT02. 

MCT2. 

AE29 

”■  APE2  ft 

AF2, 

MN2. 

MD2 

COMMON 

PN39 

PP3. 

PPT39 

P03.  PT3.  PCT03t 

PE03. 

M0E3. 

™  M0D3* 

MDF3(i 

M0PT3. 

MDCT3« 

MOPES. MD7S03.MDCT03. 

TEOlt 

TP3. 

-  TpT3. 

TCT03. 

RP3  9 

RPT3.. 

RE03.  RCT03.  ACT03. 

MCT3. 

aE3, 

- _ APESi- 

AF3. 

MN3y 

_ M03 

COMMON  PSOPO«TSOTO*RSORO,MSOMO 

COMMON  tY.$Yl.$Y2.SXl«SX?.«OXtSElt$E2.$FMAX.8EP«$PE _ 

COMMON  INSTR(26) » TDERUG, t IN. lOUT.NP. IP* ITER«NVT (3) .I.NT.IPaGE. 
1NPAGE.»N.IT(31.J.IM1.TTTMF.N0.NN.NCT.IFLG.IFL61.IFLG2.1FL63.TFLG». 
2IFLG5.TFLG6.IFLG7. IFLG8.IFL69.il .12. 13. I*. 15 
COMMON  Jl.J2.J3.J».J5.J6..l7.je.J9.JI0»Jll .J12tJ13.J14.J15.J16.J179 
1  J18.J19.J20.J21.J22.J23,J24.J25.J26 

COMMON  NCTL _ 

DIMENSION  V(30. 4) sRSTR(502) .1STR(35) 9lEXTP(7) «JV(26) 

DIMENSION  C(4.2> _ _ _ 

equivalence  (RSTR(l) . AREA ( 1 ) f . ( ISTR ( 1 ) .NP) » (PN. V ( 1 ) ) . ( JV( 1 ) . J1 ) 

INTEGER  SNi _ 

REALPfl  INE'IN.KF.KW 

DATA  TFXTp/1»P«6«7. 10.14. 16/ _ 

DATA  C/”. 1483538102.. 4534750102. -,4353067302.. 1406055402. 

1  -.5523006702.. 1493984303. -.1320817003.. 3891333302/ _ 


DEFINE  FILE  01 (300,1200.U.J16) 
POPO( 01 )=(!.♦ GM102»D1»»2)««MG0GM1 


MDOTPK 01.02) =-AW0KW» (01-02® A  IS) »A2 
1TTME=0 _ _ 


IFLG1=1 

J£JLSi5±J_ 


IFLG6=1 

IFLS9=1 


IFLGlOsl 

IFLGllsO 


IFLS12=1 

lDE3UGaQ3 
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non;  .n..no,[  i  )ojpon 
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maim 


date  5  7515T  n/B0/4O 


IINsOB 

I0UT_^0jf» _ 

NPs'l 

15=0  ___  _ 

10  READdTMflioiMCTL 


mamuau  PRORPAM  COMTROL 


IF (MCtl.En.O) GO  TO  100 

W  R I  LEJ_Ii)UI  dB)MCTL _ _ 

15  F0RMAT(*0MCTL=*«I3) 

„  I  2  3 _ 4  B  6  7  0  9  10  11  12  13  U _ 

GO  TO ( 1  00 » 125 *129* in  69 20 930  940# 50^60 9 70900 #90 9 151 995) 9NCTL 

2Q  ■  C ALLL i N PJJ T liJ UJ _ 

30  CALL'  IMTT(&10) 

40  CALL',  const  L41Qi _ ■ 

50  CALL'  OUMP(S.10) 

.  60  CAUU.SOLVPR(&10} _ 

70  CALL'  PRINT  (&.10) 

-5jL.CALULiXN0MmiU _ ^ _ _ 

90  CALL!  RFVERT(8.10) 

95  CALL'  SMPEPT(S.10) _ _ 


READ  AND  DEFINE  DEFAULTED  RUM  CONTROL  INSTRUCTIONS 


100  RFAD(ITM9  120I1MSTR _ ■ 

120  F0PHAf(26I3) 

IF  (iNSTRd)  .NE^O)  IDEBU0-t1M^TRL1>_ 
IF  (INSTR(I)  .EO.O)  INSTRd  j  sIDEBUG 

IF  dNSTR(2)  eME«0111N=lNSIRJ^) _ 

IPdNSTR(2)  ,E9oO)  INSTR(2)xIlN 

_ I F  d  NS  T  R  ( 1 )  i  ME«Q>  T0UTs|_MsTR(3)  __ 

IFdNSTRO)  .EQ.O)  IMSTR(3)sIOUT 
I F (I NSTP  <  4 ) -ME. 0 ) MP=INSTR(4) 
IFdNSTR(4)  .EQ.O)  TNSTR(4)xl 

IF (XNSTR(5) *E0«Q) INSTRjSjs?  _ 

IF  (IDEPUG^EOdOUT)  INSTR(6)sO 


IP-dNSTR(7)  .FO.O)  I  NSTR  (7)  =2 

Ic-dNSTPC?)  .E3.0)  INSTP(8)=1 

IF (IN5TP(9) .F3.0) TMSTR(9i=l  , 

IF  (INSTRd 2)  .FO.O)  IN'sfRd?)  =  l 
IFdNSTRd4)  .FO.O)  TNSTRd4)=l 

IF  (INSTRd  5)  .FO.O)  INSTRd  5)  =03 

IF(TNSTRdS)  .FO.O)  INSTRdfl)s03 

IFdN5TR(22)  .EQ.O)  T NSTR  ( 22 )  =9999999 


IFdN5TR(25).EQ.O  )X.N.S  T  R  ( 25i  _ 

IF(TNSTR(?6) .FO.O) I NSTR ( 26 ) =9999999 

00  121  1=1926  _ 

121  JVd)=TMSTRd) 

I  F i  M.C T L  ■Nr,.0)  5 0  TO  10 _ 


print,  heading  .  _  ^  _ _ 

125  WRITEdOUT9l30). _  _  _ _ 

130  FORHAT<d»  9  29X  9  74  (9S«)/30X9s'se97?X9«$«/30X9  9  S  HIRTSMI  -  MaTHEMATI 
_ 1  CAL  STft RJ I_N G  MODEL  FOR  A  LUDWIEG  TUPE  WIND  TUNNEL  $9/30X995*9 
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Main  date  s  75157  n/58/40 


272X«>«S«/30X^n  ARNOLD  RFSEARCH  OROaNI ZATI 0N«  ARNOLD  AIR  FORCE  STA 

_ „1T1.QH».-_TN  0  0  1  gK  0  »  f; » /30X  9  72&^JML»VJlfUU74(JJJL) J _ _ ... 

IF(MCTLoNE'«0)GO  to  10 

I E5 .  If  J  J1 5  .  EQ  «  0JliaQ_  _ 


-READ.  _SX1LUTJ0N  _  f_gD_^AT  A_  FJJJELjAM-  £R  I  NX 


_ _ _ 

131  IF( J15oNE«07)S0  TO  IRB 

J16sJl6^i^ 

GO  TO  IZl  _ 

128  REaD(  J15«  J15)  RSTRUSTR 

_ FINOUIS^  J16)  .  _ 

127  IF(KleFQ0O)CaLL  DUMP 

_ 1PA3£5_K1 _ 

CALL'  PRINT 

Kl-IPAGE.. _ _ _ 

ir{  Jl6-Ue-0«  J17)G0  TO  13? 

_ .GD  TO  13-1 _ _ _ 

13?  IF(INSTR(?»)  oEQ«0)GO  TO  134 
WRIXLl  TOUT  1311 _ 

133  F0RMATC9i«) 

.  .  ._  .C4LLiJlUMP  _ 

IPA3E=0 

_ CALLLPMNI _ _ _ 

134  Jl6sJlR 

.  .MIXEUoyjU36J _ _ _ 

136  F0RMAT(«4®n 

C)MnisMD»M31  . . . 

DMNlsMN-MNl 

_ _ IFfNCTl  .Ne-..0)RO  TO  10 

60  TO  n i6 


READ  IN3UT9TNTTIAL'1ZE  VaRI ARl.FS^ AND  PRINT  RpSULTS 


135  J16sJ1q 

IFL34  =  0  ..  _ _ _ _ 

CALL  INPUT 

CALL'  CONST  _ _ _  _ „ 

CALL'  INTT 

caul=  dump  _  _ _ _ _ 

IF(Al6,GT,0«nO)GO  TO  140 

iFL3n=i  .  .  _ 

TF(  A16„GE«  (--KDO)  )GO  TO  139 
Al5asDAPS( A15) 

A16AS0AR5 ( A16) 
lFL3ils? 

139  AlBsUnO 

.  A16  =  Uno  .  .  _ _  _ _ 

140  CAl  L  print 
IF(J16«EQ, 03)00  TO  150 
IF( J1B«NE«07)30  to  145 

WRITE<J18<,141  )  . . 

141  FORMAT  (3?  (  «^«  )« ’SWOPF  =•  VKF/ ADP  »  «  33  (  « «  » >  ) 

WRITE (J18) RST9«1STR_. _ 
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MAIM 


DATE  =  75157  U/5B/40 


J16SJ164.1 

GO  JO  ISO^ _ _ _ 

U5  *WRITE(ji8»J16)RSTR9TSTR 


START  time-  INTERVAL 


150  Tl-T 

. . .  T  =:  I  ♦  D  L _ _ _ 

IP'dFLr^lKEO.OGO  TO  200 

GO  TO  (269^202^  276 )  tlFi^GU _ 

259  IF(MOUGE«1.DO)GO  TO  270 

A15«LiD0- _ _ _ 

Al6  =  KnO 

_ 60  TO  ?76 _ 

270  A(1)-0*00 

A  ( 2 J _ _ _ 

00  274  1=1 »4 

. A ( 3) =Mni»»iI-l) _ 

DO  272  J=l92 

__  212  -AlJlEAi Jl-tJCjLLi^)  _ _ _ _ _ _ _ _ _ _ _  „ 

274  continue 

A15=A  (1X  _ _ _ _ _ _ .. _ _ ^ ....:  - . : _ _ 

A16=A(2) 

^  GO  TO  .  276  _ _ _ _ 

2R2  IF(MOKGE«KOO)GO  TO  284 

_ Al 5 EJLA15A.-X.  D Q )  ^Nf)  1  ^  K  PH . . . . .  . . . 

Al6s(A16A-«l«n0)^M0l^KD0 

GO  T0„.276_  _ _ 

204  A15sA15a 

A16  =  415A  _ _ : _ 

IFL6lls3 

„  276  WRITE  (  IDi^UGo278_)  MOi  f  Aj5rAl6-^^  _ _ _ 

27B  F0RMAT(»  MO1s*»F16.0*»  A  15s » «E16*8» •  Al6s*,E16«0) 

.  29.0..1F(IFLG2,,L!T.O)  15-15x1 _ _ 

IF(T5«NEeTNSTR<26) )G0  TO  143 

INSTR(23)s1  _ 

WRITE (10019142) 

142  FOR MATmORFVERTING  TO  EXACT  SUPERSONIC  SOLUTTONM _ 

143  IF(  (INSTRdO)  «EO«0)  oORdTTFR«LT«INSTR(U)  )  )G0  TO  152 

C  WEIGHT  cutting  _ _ _ _ _ _ 

AllsoS^All 

41  1  iL^All  _  _ _ _ 

INSTRd  1  )  =  INSTR(11)  ♦tNSTR(20f 

_ KRltELU  OUT  »  1 20511  TERj>  AllAlNSlRil  U _ 

1205  rORMAT(»0«95X9«TTER=«d3d  WT  HALVFO  TO  «»F5.3f»  TNSTRdl)  RAISED 

ID  TO  SI?)  .  _  _ _ 

IPASE=TPA5E^2 

X52_JLFJ  T  t  GE  «  A  lOJ  I  OLBU^JDUI _ 

TSTR=T)^DT02 

_ m  ME.S  1  TiMEiI _ ^ _ 

IFdFLGUEQo2)  TFLG4S1 

C_Sp:J  PRESSURES  OF  LAST  ITERATION  TQ  INFINITY  FOR  ERROR  COMPUTATION _ 

00  153  1=1*7 

_ L53_V_d*3)slNFiIN _ 

ITERsO 

_ !F(T.LF.T5TOP)GO  70(155*240) dFLGl  _ _ 
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MAIN  DATE  ®  7515T  11/50/40 

TfT^ TL  o  NTo  0 )  GO  TO  10 

..  _ _ _ — _ _ 

154  F0PMAT(UM 

_  -  _CALJJ_DimP _ ^ _ _  .  - _ _ 

ir(Jl8«E0o07) write (J109 156) 

..  J.56^Ejag_MAT(2</8Q(g^M  1  1 _ _ _ - _ ^ _ - 

9999  STOP 

X— - - _ _ _ _ 

C  COMPUTE  areas  of  VALVES  AT  TSTR 

155  DO  220  J“i93 

.  XLs_NVlxaJ _ - _ 

lElTSTP^GToTVIJoin >00  TO  200 

_ IZbULLJOl- _ _ _ 

DO  160  1-12911 

_ _ ^ _ 

IE( (TSTR.LE.TV(j9lMi) ) «0R® (TSTRa6TeTV<j9l) ) )G0  TO  160 

. .  llSdl^l _ _ _ _ _ _ 

IFLS1s3 

_ Ai-LLs  T  S:IR°  UyLLUIMU . . .  ' _ _ 

A(?)sl,/(TV(j9n-TV(J9!Ml)) 

_ AR£AIS  IJl s  (  AREA  ( J  9 1 )  ’-AREA  ( Jt  IMU  )  ^A  ( 1 )  ^ A12)  4- AREA  ( JjJ  Ml ) _  _ 

GO  TO  220 

160  CO-'iLJ'iUE _ _ 

WRITEdOUTf  190) 

. 190  F0pvlAT(905TQP  A^190a  _  _ 

STOP 

200  ARFATS(J)  sARE A LJj NVT  U)  ) _ ^ _ 

GO  TO(?1092209220) tlFLGl 

210  IFL3l=2  _ 

220  CONTINUE 

-  _ IFilFLGl.°Q>3)  TFLGlsl _ _ _ 

C - - - 

c  begin  next  ttepattqn  at  same  time  rnTFR^m, _ 

- - - - - - - - - - - - 

240  ITER“U£R!^.1 _ _ _ 

244  IF(TTEPeLTdNSTR(22)  >GO  TO  242 

_  INST.RU1T=2 _ _ _ 

IF  (  TFUG) 2« FQ. 1 ) WRITE (TOUT f245) 

245  FORMAT!  9 OSWITCHJNG  TO  SMalU  PFRTURRATIQN  SOLUTION  ENTlRFlVn _ 

IFL3i2s2 

241  ITERsl  _ _ 

242  NQsO 

_ NNs,Q. _ _ _ _ _ 

NCTsO 

I F  ( I TEP « 1  NSIRi  221  ).1NSTR-C23 )  ^ _ _ _ 

243  IFdFLGPoEQoDGO  TO  250 

r  SET  charge  turf  and  nozzle  vartablfs  TO  steady  Choked  valufs 

C  » - - - - - - - - 

IF(IFLG6®E0o2)60  TO  250 

IELG6  =  2  ^  _ _ _ _ 

SY=CTA/TS6 

IFLG=3  . . . . 

IFLG2“9l 

..  CALU  SOLVER  _ _ _ _ _ _ 
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Maim  date  s  75157  n/50/40 


MCTs$Xl 

_ N£l_s  $  M _ ^ . .  . . 

„  TCTO”Tc«‘-Am-._  _ : _ 

TEO^TCTO 

_f?CT 0==PC^A i  115J*.5Q.GML _ _ 

RCTO=PrTO»OOR/TCTn^AP 

_ MUQsdsaiiJ  CGB^TCIILI _ _ _ 

MDTSOsRCTO^ACTO^TSA 

_ MnrTQsRrTQ^flCTQ^CTA _ 

MM=K 

_ ^PMsPSOPO^»£IO _ 

MDCTsR50RO^'rCTO«JDSQRT(T50TO)^ACTO»TSA 

I^LSZetlI _ 

WRTTE<T0UT9?49) 

Z49  FORMAT  HAS  XHOKEOM _ 

MCTlsMrT 

_ JXTO 1 =xcLa _ 

PCTOlspcTO 

_ RrTOisprTn _ _ _ _ _ _ 

ACTOIsaCTO 

_ MMl  sHM _ . _ 

PMlsPN 

_ MOrTlsMt^CT _ 

MRTSOlsMDTSO 

_ MDCm-MaCJil _ _ _ _ _ _ _ 

PT  =  A17«PD4-  (KD0-A17)^PN 

_  Pn-PT _ _ 

Z50  iP(rNSTR(Z3) «EQoO)GO  TO  PBS 

_ !F(T>GT,A13) !M$TR(?3)a2 _ 

TFi (INSTR(Z3) «EQ.3) .AND* nTER®GE#!NSTR(n ) ) >GO  TO  253 

_ 25?  IF(TTER,NEi.nRO  TO  2SS _ 

c-.. - - - - - - - 

C  (lALL^-SM ALL_. PI RTURBATION  PACKAGE _ _ 

C - - 

253_  00_  260_1si,3 _ _ 

li=I^2B 

_ V(JlUj=A_REAT5JIl _ 

EA(T)-  VdND-Vdl^a) 

_  -  2^0  .CONTINli£_.„  _ _ ^ _ 

IF( (ARfaT5(3) «EQeOoDO) eAND« (EA<3) eEQ^O^DO) )HOFlsOeOO 
LFKAREAISJ  2)  .  EQ.  0  .DO  U  AND.  (E A  ( 2)  . EQ o  0 . DQ )  )  MOPE  1  ^0 . DO 
CALK  5MPERT 

_ LGRllfi  5DO»PT<»PCTO«PSOPOT _ _ _ _ _ _ 

IF(KKF0dFtG2)G0  TO  256 

_ TFdFLGlO,EQ«2)GO  TO  258 _ 

IFLG10=2 

_  IFdFLGZaEQd  >  IFLG2°K1 _ 

IFdFUG2«F0,{-n>G0  TO  241 

GO  TO  ?56 _ _ 

258  IFL810=1 

256  IF(  dMSTR(23>  .EQ<»3)  ^ANOdTTER.GEdNSTRdl)  )  )GQ  TO  254 
IFdNSTR(23)  oE0»2)G0  TO  254 

GO  TO  255 _ :: _ 

254  IF( J10,EQ.O3)GO'TO  1)90 

_ WRITK  J18»  J16)  RSTR9_ISTR  _ _ _ _ _ _ _ _ 
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main 


DATE  s  75157  11/58/40 


FjN^C  J1R»  J1(S) 

_ aQ__I(L.  _ 

255  IF(IFLG2)500f99999251 


SJRSONJIC  ROANCH 


251  MDF-Al^PEO^ARFATSn  )  /DSQPT  <TF0)  ®A2 

_ _ _ 

TFL56S1 

_  IFLGlEsl _ 

MDOsMDF^M^F 

DIFFUSER  Mach  _ 

SYsMOD/MDTSO 

_ JFLG^g . .  . . . 

calli  solver 

M0=$XL  „  _ _ ^ _ 

NO  =  $N 

PDsPCTO^POPOlMJDl  _ _ 

PTs«5^ (PD4PN) 

_ MDPTsMDDTpT  LP.PxEU _ _ 

MDCTsMno^MOPT 

chargEv.tubf  Mach,  number  _ 

SYsMOCT/MDCTC 

IP-LGS4  .  _ _ _ 

CALL‘  SOLVER 

..  .,.MCTASXj _ _ 

NCTsSN 

A  ( 1 )  “  a . « SMI  Q2^Mciy_^2jy_i  i^tatiiQag.M.cT ) 

•  TCTOsTr<>A(l) 

PCTO^PC^A  (1)  ®»S0GMI.: _  ■ 

RCTn=PrTO»OOR/TcTO<^a2 

..  .  .P£0  =  PCT0 _ 

TEHsTCTO 

REOsRCTO  . .  .  _ _ 

ACTO-DSQRT (OR^TrTO) 

A<1 )»RCT0^ACT0  _ 

MDCTOsft (1) «CTA 

MDIS0.?a{U.^X£4. _ _ 

ND7/LE  MACM  NJMPFR  AND  PRESSURE 

SYs^DCT/MlTSn  _  _  .  _ _ _ _ 

IFLSs? 

CALL  Solver  _  .  _ 

MNJs:f;Xl 

NN=$N  _  _ _ _ 

PNIsPCTO^^POPO  (MN) 

IF(PT«LEe9CTO»PSOPO)GO  TO  24l  _  . . . 

GO  TO  inoo 


SJPFRSONIC  branch 

500  PT  =  A17<JPD4  n  .oo^aitT-^pn 
IFI.G2:=-1 
IPl  G12=l 

MOPT=:»^nOT»T(PD9PT) 
MOn^MOr T-NOPT 

M0Fs-MnF4MDr) 
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DATE  =  75157 


U/55/40 


r..PiFF 


C  UaPiA 

.  AOOO 
1001 


TFOsTCTO 

pLa=^EmsQRj:.iTt:oi^ooAi/AREMs_(ii5^ _ 

REOsPEO^OOR/TfO 

USEP  PRESSURE.  AND  MaCH  NUMBER  _ 

SYsvidD/MDTSO  . 

IEUS==2  _ _ _ _ 

CALL'  solver 

MD-SXl  _ _ _ 

ND=SN 

PD  =  PCTO«POPO (MD) _ 

TE  plenum  conditions _ . _ 


1020 

C - 

C  CONV 


I  F  ( J  Fj^q? j_LQ  ai_L9P9.9_jJ  002 _ 

PT=  (l.nO-Al?)  »PN*A17<>P0 

GO  TO  1003  _ _ 

PT  =  0*5r!0^(PN«PO) 

MDPT  =  MDOTpT  (PPiPTj _ _ _ _ _ _ 

M0F  =“APFATS{3)  ^  (PP-Pr)*Al6)  «A? 

R P T s R P j  1 1  ( M IlMaF-JLMQgELgQTQPy  .  - 
RP=.5^fRPTl+RPT) 

I  F  < 1 FL G 9 • E Q » 2  >  00_T 0_1  QiO _ 

PPT^PPfi^  (RPT/RPTl) 

TPT=PPT<»0DR/RPT^A_2_.„ _ _ _ _ 

PPsPPTl^J  (PP/RPTl) 

TPsPPfOOR/PP  *A2. _ 

IF(TNSTR(2S) «FQ*l)GO  TO  1020 

IF{TPT,QE.TCTO)GQ._IO__I^ _ 

IFLG9S? 

TpsTCTO  .  .  _ 

TPTsTCTO 

PP_-RP^R<»TPy.A  2 _ _ 

pPTsRPT*>R»TPT/A2 


1100 

C_WRIT 


EROENCE  .(MECK_  .  _ 

IFLG3^ _ 

DO  1050  Isl,7 

E  (  T  )  « 2 ,  APS  ( V  <  1 9 11  "VJ  I.?  3JJ. /  ( y  ( I « 1 1 aV  < 
DO  non  1  =  1,7 

IF  {  F  { I )  .GT>PERR)Gf)  TO  1200  _ _ 

CONTINUE 

E  data  Q]±  file  AND  PRINT  rONVFRGFD  DAT 
IFLG3=2 

IF(  J18,EQ«03)  GO  TO  lUS  .  J _ _ 

WRTTE(Jie» J16) RSTR,ISTR 

FINO(J10«  J16)  _  _  _ _ _ 

CALL'  PRINT 

I  FL(  IN5TP(7)  .EQ,^LGO  TO  1180  _ 

IF{ tNSTR(6) ,NE,0) WRITE (TOUT m 20) V 
FORMAT  ( 15  (/«  MRE16,8)  )  _ 


.  PERFORM  EXTRAPOLATION  TO  NEXT  TIME  INTERVAL 


DO  1170  1=1,7 
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MRO  iFMlNSTRMPi  «FO.n  .ANn.  uNSTRdA)  .FQ.nJGil  IO_  11Q(L  _ 

DO  ne?  1=1.7 

TF(  (IFl  fi2.NF,U,ANn.Jl.I^Q.lLr41R-(-T.F0-81  >  100  TO.  I  185 

i 

Rd)  =2.»DAflS(V(1 .1)  -V(1.2)  )/{V(I.l )  .Vd.?)  )/INSTR(12) 
.  IF(Fd)  .GT.PFBRIGO  tO_lLft»L  .  .  ..  .  . 

IFdNSTPd4)  .GT.llGO  TO  1184 

C  FBRDR  rUTTTMG.  .  .  •  _ 

PFRR=PFRR/IMSTRd2) 

.  _  $FMftX  =  !;FMAX^lySTRd2) 

URITECTOUTd 103)PFRR*SEMaX 

1133  FDRM4TM0  _  PFRR  CUTL  TO  •  «F_i 6. 3 1  V  aNO  SFMAX  CUT  TQM 

lElG^L 

IRA5E=TPA8E*2 

.  .  GO  TO  USD .  . 

C  DT  DOURL'INg 

1184  DT  =  TT*TMSTRd41  .  .  ....  ... 

DTOPVsqt/pV 

0T0?s0T^a5 


1107  F0RMAT(90 

TPA'^PsT! - 


GO  TO  1190 


■  f  X«ln«i  •  IIW  Alls  I 


OT  RAISFD  TO* .F16.8) 


iil^lBlylila 


1190  IF(TTlMFoLE«2)G0  TO  1191 
C  OFTFRMIVJE  TF  '^EXT  INTERVAL  IS  PRCOICTeO  TO  CHOK^ 


Df^OsMD-MOl 


IF(OMDaT«DM01  IDMOsOMDl 


IFLQasnSIGNd  «5DO»PT-PCTO»PSOPO) 


1191  DMDl=Hf>-HDl 


IF(IFLG2*UITaO)  IFLG10=2 


liKffViMifnciai 


iJfil  I  aiMil^lucnHUiXi II  la  dim  I 


2000  format  f  »0?FLG2s9 ,13* •  0M0«DHNs» 92El3o59  »  MO^MNs* « 2E13«5» 

\  •  MfM  .MMl  a  •  ^ 


1  CJ  U  o 
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main  date  s  75157  U/50/AO 


00  U3«  Islf30 

iiaa  V(JLy■^i■«mJL^^ 

GO  TO  150 

11^9  ■RPXi-RP.I _ 

PPTlsPPT 

_ J£XlNSTR17i.^>l)GQ  TQ_Isa 

DO  U8ft  IsU7 

_ gglEXlgJULl _ - 

U06  v(j»a)=v(j»n 

_ 60- TO  ISO _ 


ISOQ  IFfIDERUQ.EQaQUDCALL  PRTNT _ 

IF(INSTP(5) .NE.OICALL  PPTNT 

_ U?lNSTQ(ljLl _ ^ _ 

laio  00  1260  I«1.30 

_ 60  TQ(121Q.iJL^40)>tJ _ 

V(Tf3)BV(I»l) 

_ 6Q..JQ  126.0 _ 

1220  IF(TTEP«NE'«1)  V  ( I  U  )  ®  Al  1  »V  ( I  9  1)  ♦  ai  2  ®V(Io3) 

V(Tf3)aV(Ttn _ _ 

60  TO  1260 

_ IZAd  V  Mg  4  IjgVdjtJil. _ 

V(T»3)sV(T»U 

_ _ _ LgXI.TER.J^-UV(Ld)°AU^V(I»l)»Al2^Vaff41 _ 

1260  CONTINUE 

_  66  TO  240  _  _ _ 

END 
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INPUT  DATE  *  75157  11/58/40 


SUB^OUTlNei  INPUT  («» 

IMPLJCTT  PrAL»B  ( A-H.MtO-ZtST 


COMnION  area  0.50)  .AREATSO)  .AREAMO)  .tv  0.50)  .A(IO)  .E(7)  ,B(30). 

1  TVEIQ)  .TOELAYO)  .RWI7)  _ 

COMMON  PC.RC.TC.AC.M0CTC.EAETEAPE.EAF.MDTSTR.tNFIN.TMQ06S.6P026S. 

1  SGQR _ ^ _ 

COMMON  G.8M1 .GP1.006.GP102.GM102.6P106.6M106.G06P1.G06M1. 

1  OOGMl.QOGPl.BPnGMl.SGMin?.TOGMl.TOG.MGPGM2.TQGPl.GPGMlg. _ 

2  MGPOGM . M30GM 1 . R . 6R . OOR . P 1 . PERR . A WOK W . 004 1 . OOKF . KF . KW 

COMMON  TSLI.TSH.TSW.TSP»TSA.TSWA»TSV.CTD«CTA.PV.PV0T5V.TAUW _ 

COMMON  T.T1.0T.TSTR.DT02,TSTOP.OODT.OTOPV 


COMMON 
-  MDD  « 

PN  9 

MOF  9 

PP  . 
MDPT  . 

PPT  9 
MOCT  .9 

PO  .  PT  »  PCTO  . 

MOPE  .MDTSO  iMOCTO -» 

PEO  9 

MOE  9 

TP  • 

-  TPT  , 

TC'TO  . 

PP  9 

RPT  9 

REO  .  RCTO  ♦  ACTO. 

MCT  9 

&E  9 

-  fl»E  « 

AF  9 

MN  9 

MO 

COMMON 
«  MODI® 

PNl9 
MDFl  9 

PP1« 

MDPT19 

PPTl  9 

Morn  0 

POl.  PTl.  PCTOl. 

MDPEl.MDTSOltMOCTOl. 

PEOl. 

TEOl. 

MOEl. 

TPI, 

-  TPTK 

TCTOI. 

PPlf 

PPTl  9 

REOl.  RCTOl.  ACTOl. 

MCTlt 

AElt 

-  APEIr 

. 

MNl  9 

Mnl 

COMMON 
»  Mr)D2« 

PN29 

MDF?® 

PP29 

MDPT2t 

PPT2f 

M0CT29 

P02.  PT2.  PCT02. 

MOPE2.M0TS02.MOCT02. 

PE02, 

TE02. 

M0E2. 

TP2. 

-  TPT2. 

-  APE2. 

TCT02, 

AF2. 

PP29 

MN29 

RPT2. 

Moa 

RE029  RCT02f  ACT029 

MCT2. 

4E2. 

COMMON 
«  MODS* 

PN3. 

M0F3. 

PP39 

MDPT39 

PPT39 

M0CT39 

P03.  PT3.  PCT03. 

MOPE3.M0TS03^_MDCT03. 

PE03. 

TEILI. 

M0E3. 

TP3. 

-  TPta, 

_ 

.TcT03. 

_ Mil- 

RP3  9 
MN3  9 

PPT39 

M03 

RE039  RCT039  ACT039 

MCT39 

AE39 

common  psopo.tsoto.rsoro.msomo 

_£OMMO_N  TY.SYl.tY2.SXl.SX?.Sir)X.SEl.SE2»$EMAX.SFP.8nE _ 

COMMON  INSTR(26) .TDEBUG.tIN.IOUT.NP.IP.ITER.NVTO) .I.NT.IPAGE. 
lNPA3E.tN.TT  (3)  .  J.  IMl  .  IT TME.NO.NN.NCT .  IFLG .  IFLGl  .  IFLG2.  IFI  G3. 1FL.B4 . 
2IFI G5,ifL36.IFL67.IFLG8.TFLG9.I1.I2.I3.I4.I5 

COMMON  Jl.J2.J3.J.4.J5.J6.J7.U8.J9.J10.Jll.J12.J13.J14.J15.J16.J17. 

1  J19.J19. J20.J21.J22.J23,J24.J25.J26 

_  CJJMMON  NCIL _ _ _ 

OIMFNStoN  V(30.4) .RSTR(579) .ISTR(35) 

EQUIVAt  ENCE  ( V ( 1 ) .PN) , ( R9TR ( 1 ) . ARFA ( 1 ) ) . ( ISTR ( 1) .NP) _ 

INTEGER  SN' 


REAU*9  iNF'IN.KFjKJi _ 

IE(NCT|.  .N=:i.0)g0  to  200 

_ RE  AO  ( 1 1  N.30 )  MVT.NT _ _ _ 

50  format (26T3) 

.  _  RXAO(IINj1(L0)  B£jTX _ 

100  FORMAT (5E16.B) 

REAO(  IIN.  100)  TSI-«TSH.TSW.rTn»PV0TSV.TAUW.KW.KF.Al5.Al5 
I  .A17.A1R.A19.A20.A21 

REAO(TTM.100)R.G.A11.A13.A14 _ _ _ _ 

REAOdTN.looi  OT.TSTOP.SEMAX.PERR.AlO 

_ RFa0(TtN.100)ARFAM _ _ 

REAO(ITN.IOO) TVF 

REAOdTM.lOOl  TDELAY _ _ 

DO  110  J=l,3 

D0_105  I  =  l»50_ _ 

TV(  J.DsO. 

.  1J15_  AREA(J.T>=0. _ 
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INPUT  O&TE  ®  751S?  U/5@/40 


n=^JVT^J> 

±ID  R£ADlIIJ^^AX^ilUT■VLLlAJJ.J^^J^^ 
lao  FORMAT(2E16®0) 

RE^nJR-N _ 

POO  REflD(lTN*50>  IHlPf  13 

IF(U.FD^D)RFTURN  1 _ _ _ 

60  T0(?20,240,260) » n 

PPO  RFAOMTNJ^SQLILqTRtLPJ _ ^ _ 

60  TO  200 

^4iLREA0(TTNf  100)RSTRfT2) _ 

GO  TO  200 

2AII.  RF  A  t)  (  T  T  N 1 1 0 01.^  H  2  »  T 3J _ 

60  TO  200 

_ END  _ _ 
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CONST  DATE  »  7S157  U/SS/40 

SURROUTIN*^  CO\JST(») 

IMPLICTT  REAL^^S  )  . . 

COMMON  aW‘=’A(3«S0)  »  area  is  (3)  »AREAM(3)  ^TV(3#50)*A(10)*F(7)»S(30)* 

1  TVt^(3)  ,T3ELAY(3)  ,RW(7)  . 

common  PC*RC*TC»AC9M0C  fC^PAE  9FAPP  ,FAF  *MOTSTP  ,  lNFTN*TMr700S*GP020S« 

1  SOON  . 

COMMON  0»3M1 »SPl »OO0,(iPlO?9OMinp,GP106»GM1069G0OPl »G03M1 « 

1  n03MUO03Pl  *3O00Mi  ,SGM10a«TOGMl  ,T0G<»MgPGM29T0OP1  90PGM12,  . . . 

?  MRP0GM,M303M1 »R9GR,OOH*pT  » PERP 9  A WOK^ *00 A  1 ^OOKF^KF^KW 
COMMON  TSl'9TSM*TSu/9  rSP^TSA^TSWA^TSVfCTO^CTA^PV^PVOTSV^TAUW 


COMMON  T9  n  ^OT, rSTR 9 0102 9TSTOP, 000  7,0 ropv 


COMMON  A19A29A? 

*A49A5 

9  A  6  9  A  7  9 

A89A99Al09An9Al?9Al3 

9A149A15 

9AI69AI7 

COMMON  PN  9 

PP  « 

PPT  « 

PO  •  PT  9  PCTO  9 

PFO  9 

MDF  • 

MOD  9  mqp  9 

MOPT  9 

MDCT  9 

MOPE  9MDISO  9MOCTO  9 

TFO.  1. 

.  TP. .  . . . 

TPT  9  TCTO  9 

RP  9 

RPT  9 

PFO  9  RCTO  9  ACTO9 

MCT  9 

AF  9 

APE  9  AF  9 

MN  9 

MO 

_ 

COMMON  PNI9 

PP1  * 

PPTU 

POl 9  PTI9  PCTOlf 

PFO  It 

MOFl  9 

MOOI9  MD^U 

MOPTl 9 

MOCTl » 

MOPFI9MOTSOI9MDCTOI9 

TEOl  * 

TPlt 

T^n,  TCfOl. 

RP*1  * 

RPTl  9 

REOI9  RCTOI9  ArT0l9 

Mcn  9 

AFl  9 

APEU  AFl9 

.MNI9 

MDl 

_ _ _ 

COMMON  PM?* 

pp?. 

PPT?9 

PO?*  PT?9  PCTO?* 

PF029 

M0F?9 

M0029  MDF29 

MDPT29 

M0CT?9 

MOPF29MnTS0?9MDCT0?9 

-  TE02-9 

-  Tp?j| _ 

TPT2,  TCT029 

PP?, 

RPT?* 

RFn?9  PCT029  ACTO?* 

Mcr29 

AF?* 

APE?*  AF29 

MN?9 

M02 

_ 

common  PN3* 

PP3* 

PPT39 

PO39  PT39  PCT039 

PE03  9 

M0F39 

MOO39  MOP39 

MnoT39 

M0CT39 

MOOF39MQTSO39MOCTO39 

..TF0.3j,... 

..  .IR2jl 

TPT3*  TCT039 

RP3  9 

RPT39 

RFf)39  KCT039  ACT039 

MCT39 

AF39 

APE39  AF39 

MN3* 

M03 

COMMON  pSOP09TSOTO.PSORO«mSOMO 

COMMON  'f,Y9SYl9l*Y29$Xl  ,SXp9$DX9$El  9T.F?9$EMAX,SFP9S0F  _ _  .... 

COMMON  TN5TP(2^)  9  T  DFHllG  »  T  T  N  9  T  OUT  9  NP  ^  J  P  9  T  TER  9  MV  T  (  3 )  9  T  9  NT  •  I  PAGE  9 
INOA3E9SN9  TT (3)  9.J9  TMl ^  tTTMF.MDqNN9MCT9  TELG9IFLGI 9  T FLG2 9 T FLG3 9 TFLG4 9 
?TFL3‘S9TFL3fi9lFLG79TFI  G8  9  TFIG99 11  9  T?9  I  39  T4  9  IS 
COMMON  J1  9  J2  9  J39J49  JS9  JG9  J7  9  JH9  JP9  JU’9  J1  I  9  Jl?9  J13  9  JJ4  9  JlS.9vl)i6  9,117l.._ 
1  JIS9  JIQ9  J20  9  J?1  9  J229j^i3  9  J24  9J2S9  J?6 

common  NCTL 

INTEGER  $N 

RFaU'^8  lNC'IN9<r*K»J 

PT=:3«  141  592^83509793 

GMl^G-1 

GPl^G^l 

CiMl  02  =  ,5^3M1 

GP1D?=0P1 

O0G  =  K/G 

GMl  OG  =  r.Ml»OOG 

GPl  0()  =  r,Pl  «OOG 

GPO?GS=:0«  S«GP1  on<»noG 

Gr)GMl=r;/GMl 

G0GP1=G/GP1 

S3MK)2  =  0S0PT  (3M10?) 

T0G=2*«003 
T0GP1=?./3PI 
OOGMl s] , /GMI 
GPnGMl=r,Pl»00GMi 
GPGMl?=.b»OP0SMl 
000=^1  =  1  ,/3P) 
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CONST  DATE  =  751'>7 


OOP  =  K/P 

_ _ _ _ _ _ 

M3P06MS-GP0GM1 

M3PGM2=-G=>GM18 

MCiOGMls-GOGMl 

T^GOGS= (?.-0) ^000^^? 

T9G^1=?./3M1 

I^dNSTRO)  .EO.DGO  _TQ_.  lOtt _ _ _ 

A?sl44, 

A3=1./a2 
GO  TO  ?00 
loo  A?=l. 

A3sA^ 

?0n.  CONTINUF 

r  s-PTFS  POP  unstfaoy  Mass  flux  prom  mach  numrfp 

A(P)=MGP03M 
A(P)=GM10P 
CALL  RTNOM 
CALL  PPVFRT 
DO  ?20  1  =  1  ,7 
??0  R^(I)=a(1) 

SGOP=OSDRT (G«OOR) 

IP(NCTl .E0.7)RFTURN  1 

RFT JRN 

FND 


n/ss/40 
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TNIT  DATE  =  75157  U/5R/40 

SDR^OUTINC-  TNTT(^)  ' 

IMPLICTT  REAU»B  (  A-H  •  M  ♦  0-Z  «  S )  „  _  _ _ _ 

common  aR”A  (3<»Sn)  9  APE  ATS  (3)  ^  APF  AM  (  3)  «  TV  ( 3  »50 )  ,  A  ( i  6  j  (  7 )  »  R  ( 30 )  « 

1  TV«^(3)  .T3ELAY(3)  •PW{7)  .  _ _ _ 

common  PC,PC»TC*AC*MnCTC*FAF»EAPP«FAF9MnTSTp/TNFIN/fM300S»6P02GS« 

1  SrOP  _ _ _ 

common  r,,5Ml  9OPI  ♦OOG^GPIOPvOMIO^^GPIOGvOMIOGqGOGPI  9GOSMI  9 

1  OOOMl  9OOGPI 9GPOGMI  9SGM10^9TOOMJ  9T0.G9M(5PGM29T0GPl.fGPG.':^12.* _ _ 

2  MGP0GM,M00GM1 9P9GP9O6R9PT  9PFPP9 AWOKW9OOAI 9OOKF9KF9KW 

common  TSLi9TSH9TSW9TSP9TSA9TSWA9TSV9CTr)9CTA9PV9PVOTSV9TAUW _ 

common  T9TI  90T9T5TP9  0TO?9TSTOP900nT9f)TOPV 


common 

A  1 9 A29  a3 

1  9  A4  9  A5 

9  A6  9  A?  9 

AR9A99A109A119A1?9A13 

*A14f A15 

.A.16*41T 

COMMON 

PN  9 

PP  9 

PPT  9 

PO  9  PT  9  PCTO  9 

PFO  9 

MDF  9 

-  MOO  9 

MOe  , 

MOPT  9 

MnrT  . 

HOPF  oMDTSO  9MDCTO  , 

TFO  9 

TP  9 

”  TPT  9 

TCTO  9 

PP  9 

PPT  9 

REO  9  RCTO  9  ACTO, 

MCT  9 

AE  9 

»  A»E  9 

AF  9 

MN  9 

MO 

common 

PNI9 

PPI9 

PPT  l  9 

POl,  PTl,  PCTOl, 

PFOl  » 

MOFl  ♦ 

®  MOOI9 

MOFI9 

MOPTI 9 

MDCTl. 

MDPFl#MnTSOl9MDCTOU 

TEOJt  - 

.  TPJ.i_ 

-  T»ri, 

TCTOI  9 

PPl  9 

RPTl, 

REOl,  RCTOU  ACTOl, 

MCTl, 

AF1» 

-  A  PEI  9 

AFI9 

mni. 

MOl 

COMMON 

PN?, 

PP?, 

PPT?9 

Pn?9  PT29  PCTO?, 

PFO?, 

MOE?, 

“  M0D29 

MDF?9 

MnPT?9 

MDCT2» 

MOPE?9MQT$029MOCTO?^ 

. LP2.y _ 

-  TPT2, 

TCTO?, 

PP?, 

RPT?9 

pro?,  RCT02,  ACtO?, 

MCT?, 

AE29 

»  APE29 

AF?, 

MN?, 

MO? 

COMMON 

PN39 

PP39 

PPT39 

P039  PT39  PCT039 

PF0“39“ 

mdeT, 

»  M0039 

M0F39 

M0PT39 

MOCTl, 

Mr)PF39MOTS039MnCT03, 

TF039 

TP39 

»  TPT3, 

TCTOa, 

RP39 

RPT39 

REOl,  RCf03,  ACT03, 

Mcra, 

AE39 

•»  APE39 

A F3  9 

MN3  9 

Mn3 

. . 

COMMON  PSOP09T50TO*PSOP09MSOMO 

COMMON  <f.Y9SYl  9$Y29$X1  9  SKP  9^0X9  %E1 9  $F2  9  SEMAX  9  SEP  fSOE _ _ _ 

COMMON  TN5TP(?6) 9 TOFRUG 9 T TN 9 1  OUT 9NP 9  IP  9  I TFR 9NVT ( 3) « I  9  NT  9 1  PAGE  9 
INPA3E9SN9 IT ( 3) 9J9TMI 9ITTMF9ND9NN9NCT9  TFLG9IFLG1 f IFLG29lFLG3»TFLG4» 
2TFI  G59TFL3<S9lFLG79fFLG09TFLG99n  9T?9l39T49l5 
common  JU  J?9  J3  9J4  9  J5  9  J69J79J0O  J99  JlOtJU  9  Jl?9Jl39JH9J.159Jl^tJ179 
1  J199J199 J209 J21 9J229J239J?49J259 J26 
COMMON  NCTL 
dimension  V(3094) 

FOUTVALFNCF  (PNtVd  *1)  ) 

TNTEGEP  SN 

Rr/vL'»B  TN?I  N9<F9Kb^' 

DO  5  I rl  9  3 
IT(n=? 

S  APF  ATS{ T) 

TSA=T5w»T5H 
TSP=2«« (TSW9TSH) 

TSWAsT‘;i /^TSP 
CTA=PT«rT')<»«2».?5 
7SV  =  TSa<*TSL 
PVsTSV^^PVOTSV 
OTO^V  =  nT/=»V 
PC=PC*noP/TC»A2 
AC  =  ')S0RT(3P*»TC) 

M*)rTC=PC«  aC^CTa 
MOTS0  =  nr<*AC»T5A 
00  50  J=l94 
00  10  T=l97 
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INIT 


OATR  =  7S157  n/*Sft/Vo 


10  V(T*J)='^C 
no  ?()  T=«»13 
?0  V(T»J)=0« 

V ( 14^ J) =M0TS0 
V(15*J)=M0CTC 
DO  30  I=16»19 
30  V( TfJ)=TC 

00  40  T=^0»?3 
40  V(T*J)“9C 
V (?4* J) =AC 
DO  4S  T=?=i*30 
4S  V(TfJ)=0. 

50  COMTINI.ir 
TrO, 

T1=0. 

^0  =  0. 

TST9=0 
.  r)T02=*R<»DT 
oonr=i./DT 
MNrO. 

DO  160,  J=1  ,3 
lUVlVT  ( J) 

DO  140  l=l9l\ 

TV(  J»I)=T\/(  J»n<»TVF{J) 

140  AQFft(  J»l)  =A9EA(J?I.)«.A9f  AMU) 
IF (TOEl  aY( J) .FO.O*)GO  TO  160 
DO  IbO  Tlsl,49  .  . 

i=si-n 

AREAUtn=A9EAU»I-n 
150  TV(J»n=TV(JM-l)*TOFLAY(J) 

NVT(J)=MVT(J)«1  _ 

160  CONTINUF 

00  170  1=1*3 
170  V(T^25.?) =ARF6 (T*1) 
PSOOOsTOG^l  »«30r,Ml 
T50T0=T0GP1 

RSORO  =  TOG31ttttOnGMl  . . 

MSnMO=PSORO»05QRT (TSOTOj 
MOTSTRsmotsO^MSOMO 
TMFTN=1 .E+76 

A  I  =OSOPT  (  TOGPl  «»<»GP0GM1  «G»0OR) 

nOAl=l./Al 

A4  =  T0GP1  <»»GPGM1  ? 

A5=1  •/msOv^O 
A6=) ,-PSOPO 
A7  =  ?«<»GP1  /MOCTC 
ar=-gmiog 

A9  =  P.<»GP1 

IF(a10,FQ.0,) a10=tnftn 
IE-  (  Al  1  .FO.U.  )  Al  1  =  . 5 
IF{A13*FQ,0,) a13=TMFIN 
TF( A14.FO.0,) Al4=“0.1 
IF  <  Al 4.GT .0, ) Al A  =  ™A14 
Al?=l«-All 

IF ( A15.FO.O.DO) AlS=l .00 
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”  I  NIT  . .  ” ■  7b  \  bi 

JP- {  A16*FQ*0»00>  Alftsl  ,rjO 

TF(i^l7«FQo0a0P)  AiTsloOO 
IPA3Ean  . 

NPftSEsSO 

IPsf) 

OOKC'  =  U/KF 

Aw/0<v^=.  1  7»rdlJi^»TSWA/KW 

rTE^=o 

TFl  GsO 

IFLS2=1 

IFLS3sO 

TrLri4=o 

IFU35=0 

TFi.r^6sn 

TFLa7=0 

tFLr78sn 
1^139=0 
ND=0 
NN=0 
NCT  =  Q 

Tl=n 
12-0 
I3=D 
14  =  0 
IB  =  0 

DO  POO  T=lt7 
200  F(T)^Oo 

IF(NCTleFO«B)PFTURN  1 

RETURN 

F.NO 


U/B8/40 
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DUMP  date:  s  75157  11/5B/40 

SJP^OUTTN-  (^)  ^ 

implicit  _ _ _ 

COMMON  fiRrA(3,tjoi,AWFATS(3)  »APF.  AM(3)  9  TV  (  3  ?  50 )  « A  ( I  0 )  9F  <  7 )  9  B  (  30  )  « 

1  TV6-(3)  9T0FLAY(3)  ♦RW(7)  _ 

COMMON  PC9RC*  TC •Ar^MOrTC^FAF^FAPF^FAFoMOTSTP, |NFIN9TMr,0OS9GP02O59 

1  SGOR  _ _ 

common  93PI  9  00G90P10?90Mlo?90P10G9GM10G9riOGPl  »G0GM1  , 

1  OOOMl  ,003Pl»3'’OGMi,5f;MlQaATOQML,TOGfMGPGMgttm£ElifiPa^i _ 

?  MGP06M,MG0riMl  •P9GP*00W9PT  9PFRP9  AWOKW9OOAI  900KF9KF*KW 

COMMON  TSLi9TSM»TSW9TSP9TSa*TSWA*T5V9CT0  9CTA»PVj?.PV0TSV?TAUW _ 

common  T*T1 9079  TSTR*nT0?*TST0P900nT9[U0PV 


COMMON 

Al  9  A?9  A3 

«  A  4  9  A  5 

»  A  6  9  A  7  9 

AR9AP9A109An  9A1?9A13 

•A149A15 

’  A 16  _ 

COMMON 

PN  9 

PP  9 

PPT  9 

PD  9  PT  ♦  PCTO  9 

PFO  9 

MOE  ♦ 

MOO  * 

MOF  , 

mopT  9 

^^OCT  9 

MnPF.9MDTS0  9MnCT0 

TFO  9 

_ 

TRT  , 

TCTO  9 

RP  9 

RPT  9 

PFO  9  Rcfo  9  A>f09 

MCT  9 

AE  * 

aRF  . 

AF  9 

MN  9 

MO 

COMMON 

PNl  9 

PPl  9 

PPTl  9 

POI9  PTi;  PCTOI9' 

pfoiT 

MOEN 

MODI  9 

MOFl  , 

MOPTl  9 

MOCTl 9 

MORFl ,MDTS01 ^MOCTOl 9 

TFOIj 

-TPli _ 

T^l  1  . 

Tel  01  9 

»P1  9 

RPTl  9 

RFOl,  RCTOH  ACTON 

MCTl  9 

AF  1  9 

ARFI  9 

AF  1  » 

MNl  9 

MDl 

COMMON 

PN29 

PP29 

PPT?9 

P029  PT29  pnoz7 

”pFoi7~ 

M0E2. 

MOO?, 

MnF29 

MDPT?9 

MOCT29 

MnPF?,M0TS029MDCT029 

_  TF02  ,.. . 

.  JPii 

TRT?, 

TCT0?9 

QPP, 

RPT?9 

RF02,  RCT029  ACT029 

MCT29 

aE29 

flRE29 

AF2, 

MH?, 

mD2 

common 

PN39 

PP39 

OOT39 

PHI,  PT39  PCT039 

PF  03  9 

MnF37 

MOOJ, 

MnF3, 

M0OT39 

MOCTl, 

MORF39MDTSO39MO.CTQ39 

TRT39 

TrTn39 

RP39 

RPT39 

PFO.39  RCT039  Acf039 

MCT39 

AE3t 

ARF39 

AF3, 

MN3  9 

MOl 

_ _ 

_ 

common  P50Pn9T5nTn,RSORO,MSOMO 

COMMON  ^Y9i.Yi  9SY?9^xi  9a)XP9iinx9'fFi  9^f;^9^fmaX9?e:p«^0F 
common  TN5TP ( ?5)  9  TOFOUG, ?  T N 9  TOUT  9 NP 9  I P 9  T T FP 9N VT ( 3 )  9  T  9  NT  9  T P AGF 9 
1 MPA3e«^N9 IT (3)  9 J9  TMl 9  TTTMr,N09NN9NCT  9  TFLG9 IFLGI 9  I FLG? 9  I FLG3 9  I FLGA 9 
?  T  FI.  05  9  T  FL  05  9  T  FLG7  9  T  Ft  GR  9  T  H  GQ  9  T  1  9 1  ?  9  I  3  9  I  4  9  I  5 
common  Jl , J?9 J39vJ49 J59 J6, J7. JR9 JP9 J10,J1 19J1?9J139J149J15?J169J179 

1  Jl  9  Jl  tj9  J^n9  J2J  »  J^P9  J^3  9:j24  9  JP5»  J?5 
COMMON  NCTL 

OTm^nstON  JV(?5) 9V(3094) 

FOUTVALFNCF  ( JV < 1 )  9 Jl  )  9 ( V ( 1 )  pPN)  _  _ _ 

INT-GFP  Sn  . .  . . 

Pfal^R  TNfjsj,<f,Kv«< 

LOGTCa)  04  CHARI  (2)  9rMAR? (?9?) 

OaTA  CHftPl / » pOFa » 9 ' PSI a » /^CHAR?/ •SFCO » 9 'NO  *  9 »SFVF» 9 ’NTH  »/ 

TF  (  TOUT  9  100)  (  I  9  J  =  l  926)  9  TNSTP 

100  FOPMAT(»Oi9l6(»  INSTRf,l?)/9  99l0(»  I  NS TR « fl I  2 )  9 2 ( / «  ’91510)) 

PR  I  TF:  (  TOUT  9 120)  TDFBUG9  nN9  TOUT  9 1  1  9  T  P  AGF  ,  NP  AGF  9  NP  9  T  P  *  T  TER  9 1 2  9  T  9 
1 T FI.  0 9 IFLGI 9  TFLG2  9  TFLG3  9  TFLG4  9  T FLG5 9  T F LG6 9 1 FLG7 9 1 FLGR 9 1 FLG9 9 NO  9 NN 9 

2  NrT9TTTMrp\jvT9T39T49T59TT9MrTl. 

l?M  FOPMaTMO  yopRJG  TIN  TOUT  Tl  JPAGF  NPaGF  NP  TP* 

l9»  ITfR  r?  1  TFLG  TFLol  IFLG2  TFLG3  IFLG4  TFLG5» 

?9*  IFlG6i/t  •,lRT7/*n  TFLG7  TFLGR  TFLGR  NO  NN  NOT’ 

39*  TTTME  NVT(l)  NVT(2)  MVT(3)  TJ  14  15  I T  (1)  •  9 

4»  TT{?)  IT  (3)  NCTl  » 

-/♦  »  9 Inj  7) 

WRT  TF  (  TOUT  9  1  40)  TSL  9TSH9TSW9CTn9PVnTSV9  T  AUW  9  KW  9  ►fF  9  A  RF  A  M  9  TS  A  9 
lTSP.TSWA9CTfl9TSV9PV9AWU<w 

140  format ( «09  9  7X, »TSL»  9 1 IX 9  e TSM « • 1 0 X , • T SW «  9 1 3X 9  « C TO «  9 1 PX 9  « PVOTSV «  9 
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HUMP  date  s  75157  U/5B/40 

I  11  X  9  •  T  A U »  1  3 x’9  »‘k W  •  7r4xT»KF  98E  16« 8/ »  0  •  9 7X  9  •  AEM*  » 1 3X »  •  APM ♦  9 

213Xi  9.1 3 X  9  IS kl ±l » J5P1^ X^LLIWA^^  13 X n SV-iy _ 

3*  •  9BE15*B/»0»  97X,  •PV®  9-13X9  •  AWOKW»  9IOX9  •  •  9IOX9  •  *  9 

4  10X9  •  AtlOXjt  _ »9lOX9»  ^910X9 _ _ _ 

5  /•  •9Bn6«B) 

WRl IE ( TnUT9l8n)PC9Rr9TC>PP9RP9TP9PPl 9PPI 9TPI 9PPT9PPTf TPT^PrTOi _ 

1  PCT09TCT09PE09RE09TF69ar9ACT09MOPE9MOCT9MOE:9MDF9T9Tl 9MN9TSTR9 

„2.MDPT.f  MDD.9_pd  9P■MJPl.dm^i4CT.^LPP■^A.MDE^Aj^l:^AMO.£L^MDCT^9  $EH  _ 

3T5T3P9  DT  9PSOP09TSOT09RSOR09M5OM09MOTSTR9MOTS09MDCTC9MDCT0fPERR 

4  9  PN 3 9 PP 3 »  MDF 3 9  PF03  9  TF03 1 mdT$039  PCT03  9  TJIELAY _ 

190  FORMAT(«0»97X9»PC’9l4X9»RC»9l4X9«TC«9l4X9»PP*9l4X9*RP»9l4X9 

1 »  TP  •  U4X  f  •  PPl  •  9  13X9  >RPl«/«  »9eF16.9/»0<97X9»TRljf_l3X9<PPT»9l3X9 
2*RPr*  91.3X9  ’IPT*  9 IPX9  •PCTO*  9  IPX9  *RCTO»  9  12X9  »TCTO«  9  13X9  »PFO»/»  *  9 

- . -3ftEJ.6 aA/Jja:?.9XX9  »REP*  ymaJLLEQSUXuiMC^ 

4*MncT«  913X9 •M3E*  913X9  »  9 BE  1 6 «8/ 1 0 »  9 8X 9 • T • 9 14X 9 • T 1 • 9 1 4X 9 » MN* 

.59l3X9*TSTR»9 12X9^MDPT»9l3X90MDD»9l3X9>PD»9l4X9»PNt/«  »9ftFl6.a/ 
6»0»,7X, tPT*9l4X9*Mn»9l4X9»McT«9l3X9*PP2»9l2X9*MDF2*9l?X9*MDPE2»9 
7 .11  X  9  *  MpF 2  *  9  1 2X  9  »  MnCT2  >  / »  » 9  SF  0  >  9 6X  9  <  $FM A X  ^  9  1 1 X  9  »  TSlflP  >  9 

811X9*  HT  *912X9  *PSOP0* 911X9 »TSOTO*  9llX9«RSORO*9llX9*NSOMO*9lOX9 

.  ..  -9 S_T R  */*_.* SILLUJJIjLM!!^^  _ _ _ 

A  10X9*  PERP  *9lOX9*  PN3  *9lOX9*  PP3  «9lOX9*  MDF3  «9lOX9 
R  •  PE03  «/•  « 9BF16«8/»0* 96X9 *TF03*  9  11X9 OMDTS03* 911X9 *^CT03»  9l 0X9 
C*TnELAY*9lOX9  •TOFLAY*  9  10X9*t'dfLAV*9  10X9  9  *910X9*  •/*  *9 

D8E16.8)  _ _ 

WRITE <  TOUT9?00) A1 9A29 A39A4  9.A5  9 A69 A79A09A99A1O9A1 19A129A139A149A159 

_ LAI  -bJ  A 179A189A199A209A219A229A239JV2A  _ _ 

200  F0R'1AT(*0*  9  7X9*Al*9l4X9  M?*  9UX9*A3*  9l4X9  9A4»9l4X9*A5*9l4X9 

1  *  A  6  »  9  U  X  9  *  A  7  «  jlL4  X  9  *  a8*/*  »  9  QF  1 6  «  8/ *  0  *  9  7X  9  *  A9  »  9  1  4X  9  »  A 1  Q  ^  a _ 

313X9  •All  •  913X9  ’Al?*  9  13X9  •A  13*  9  13X9 ’AU*  9  13X9  •AlB*  9  13X9*  A16*/*  *• 

4  9E16o8/*0«9  9 •al7*9l3X9»Al8*9l3X9*Al9»9l3X9»A?0<9l3X9  9A21*9 

5  13X9«A22*9l3K9«A23»9l3X9«A24* 

-/•  •9  9E:i.6^aj _ _ _ 

WPITE(TOUT9220)G98Ml9GPl9GM1029GP1029nOG9GM10G9GP10G9S08Ml9 

POOG^l 9P90DR96R9DT029nTOPV900KF9lMFIN900Al 900nT9MG0GMl 9TMGO6S9 

3  GP32G59S30R  _ _ _ _ _ _ ^ _ 

??0  FORMAT ( *1*98X9*0* 9  14X9 •GMl • 9  1 3X 9 *GP1 • 9 1 2X 9 « GM102 *  9 1 1 X 9  * GP102 *  9 

1  1 2  X  9  •  0  OG  *  9 1  2  X  *  G  MIQG  «_ilXX  9  J  GPIOG*/*  *9RE16  «8/<0*  96X9  *GOGMlto 
21 1X9  «G0GP1 «  9 10X9  «SGM102«  9 12X9  »  TOG  *  9 1 2X 9  « TOGPl *  9 11X9 •ODGMl «  9 
310X9*  GP06M1  *910X9*  GPGM.I  2  *  /  *  «  9  BEI60  8/ *  0  *  9  6X  9  *  TOGMl  *  9  1  OX  9  *  MGP6M2  *  9 

4  10X9  »mgP3GM«  911X9  «0GGP1 *  9 13X9  *R  «  9 14X  9  » OOR »  9 1 3X 9 • GR «  9 1 3X 9  »0T02* / 

5*  «9BElft«8/«0«96X9»  nTOPVj  9  U  X  9  •  OOKF  *  9  1 2X  9  •  INFTN*  9  U  X  9  *OOAl  _ 

6  l?X9»noDT«9llX9«MGOGMl«9l0X99TMG*OGS*9  1 0 K * • GP02GS * / *  *98E16«8 

7  /*0*  9<^X9  »SG0R»  ,  _ _ _ _ 

-  /•  *  98E15«B) 

WRITE(IOUT9?60)  V  _ _  _  _  .  _ 

2S0  FOPMATf«0V  EQJIVALFNCE  ARRAY*915(/*  •98E16«8)) 

WRITE(IOUT,?40)  (I9l  =  l97)  9RW _ _ _  _  _ _ 

240  FOPMAT  (  *0*  9?  (‘)X9  •  RW(  »  911  9  *  )  *  fSX) /»  «97E1698) 

NTMSTR  =  26  _  „  _ _ 

DO  1000  l=l9NIMSTR 

T'^(l9En.lP)WRlTF(?OUT94R0)  _  _ 

4R0  FOPMaT(*1*) 

WRITE(IOUT9500) I 9lM5TR(I)  _ 

SOO  FORMAT  <  »0TN<;TR(  «  9T29*)  =  «9|7) 

r  1  2  3  4  5  (S  7 _ 8 _ R  10_..1-L  — 12 _ L3  14  15 
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C  15  17  IB  19~?V''Ti  25  26  27  2R  29  30  31 

GO  T 0  ( 5 1 0 , 5 2.Q  j  530  ^540  ^550^  560  fSTO  »58Q^590j6Qa^MO  r620jge3Q  j.MQg65Q_ 

1  f  660  *670*  5RO»690«  700<»710»  720^730^740?  750  5.760 

»  )  *  I  _ _ _ _ _ _ _ _ _ _ _ 

510  W9TTE(I0UT.5511>TNSTR(1) 

511  FORMAT(«^»9?OX^*5rND„  nEBUnGTNfi  OUTPUT  TO  DSRN*  *T31 _ ' 

GO  TO  1 000  • 

520  WRlTe(I0UT952UlN5T.R(iJ _ _ _ _  ■_ 

521  Fr)RMAT(»«*9?OX*»ORTATN  TMPUT  FROM  DSRN^^ia) 

GO  TO  1000  „  _ 

530  WRITE(T0UT9531) TN5fR(3) 

531  F0RMAT(  *20X*  •SEND  REGULAR  OUT^T_  TO_ O^N *^9 J 3J _ 

GO  TO  1000 

540  WRlTE(TOUT954n  TNSTR(4) _ 

541  F0RMAf(»^»920K*«PRIMflN6  TTME  J NTFPV AL J » *  1 3 ) 

GO  TO  1  000  _ _ 

550  WRITE (TOUT  9 551) CHARI (INSTR(5r) 

551  FORMATi»^'920)(*’IMPUT  AMn  OUTPUT  PRFSSURFS  TN  _ 

GO  TO  1000 

.  „56.0  I F  lINSm3J.ii.EQ,iLjIlWRIJ:E:3J^^  _ 

IF (TNSTR(6) 9 NE»0) WRITE (TOUT* 561) 

561  FORMAXl It’ 9?0X*  >PRTNT  DaTa  AFTFR  FVFRY  TTERaTTQNM _ 

562  F0PMAT(»^*9?0X9»PRTNf  DATA  ONLY  WHFN  CONYERGEO®) 

GO  TO  1000  _ _ 

570  IF.(TNSTR(7)  oEOol)  write  (IOUT957I) 

IF(IN5TR(7)«E^«.  2)WPTTE(T0UT9572) _ ^ _ 

571  FORMAT 920X* ’LINEARLY  EXTRAPOLATE  TO  NEXT  TIME  INTERVAL  AS  AN  I 

INITIAL  GUESS®)  „  _  _ 

57?  FORMaT(®^»920X9«00  NOT  EXTRAPOLATE  TO  NFXT  TIME  INTERVAL®) 

GO  TO  1  000  ^ _ _ _ 

530  WRITE  (IOUT95'01)  (  CHaR2  (  J  *3-INSTR  ( 0 )  )  t  Jsl*?) 

_531  F0PMaT( *20X9  »USE  ®92A49®  DEGREE  REVERTEO  SERIES  AS  INITIAL  GUFS 

IS  TO  “Mass  elux'-mach  number  wave  equation®) 

GO  TO  1000  .  _ _ _ _ _ 

590  TE(TNSTR(9) » EQ« 1 ) WR I TE ( I  OUT *59 1) 

IF(INSTR(9)»E0p2  )WRITE(T0UT9592) _ _ _ 

591  F0RMAT(*^*920X**USF  ITERATIVE  SOLUTION  TO  ENERGY  ANO  WAVE  EQUATION 

.  IS®,)  _ _ _ _ 

59?  E0RMAT(»^®920X9«USF  APPROXIMATE  EXPANSIONS  FOR  ENERGY  AND  WAVE  EQU 

1  ATTONS* )  _ _ _ _ 

GO  TO  1000 

600  KdNSTHdO)  ,EO^0)WRTTE(TOUT*601) _ _ _ 

IF (INSTR( 10) «EOol) WRITE (TOUT *602) 

IF(TNSTR(10),F0^J  WR  T  TE  (  T  OUT  *  603 ) _ _ 

601  FDRMAT{»«*920X9«Dn  NOT  INVOKE  AVERAGING  OPTION®) 

60?  format ( t* • 9?oX9 •AVFRA_GE  VALUES  OF  CURRENT  ITERATION  WITH  AVERAGE  V 
•  ALLIES  OF  PREVIOUS  ITERATTON®) 

603  format ( » ♦ t  ^?ok9  » average  VALUES  OF  CURRENT  ITERATION  WITH  UNAVERAGE 
10  VALUES  OF  PREVIOUS  ITERATION®) 

GO  TO  inoo_ _ _ _ 

610  WRTTE(T0UT96*lf)  TNSTR(U) 

611  FOPMAT ( ®  **  >  *20X9 ’CURRENT  WFIGHT  IS  HALVED  BEYOND  »9l7*®  ITERATIONS® 

1) 

GO  TO  1  000.  _ _ _ _ 

6  20  IF(TNSTR(12) ® EO . I ) WR I TE ( Y OUT  *  62 1 ) 

IF  ( IN5TR  (i?)  .  ME.  1)  WRITE  (TOUT  9  622)  (IN5TR(12)  eJsl*?)  _ _ 
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nuMp 


date  s  ?B157  n/5R/40 


621  F0RMAT(»^»920xV9Do”NOf  TKIVOKE  ERROR  CUTTING  OPTION*) 

.  _622  FORMAT  ( *A*  i2QXjLJ-m.^L^RaRS..  aY T  riat±.. 

1E5S  THflM»9l3»«  TIMFS  THE  ERRORS*) 

GO  TO  1  000.  _ _ 

630  Tr(TNSTR( 13) « FQ « 0 ) WR ! TE ( TOUT  9631 ) 

IF(INSTRT13_)^NE^0JiJRlI£lJLnUI_2Al£i _ _ 

631  format  {  »  920X9  *PRINT  ALT  DATA*) 

. .6 32  F OR M A T  (  »  ^  *.9  20 Y  TINES^AND  PRESSURFS*)  _ _ 

GO  TO  loon 

640  IF  i  I NST R  ( 14 £Q^l).W.RIl£-( IQUT  tJ64JJ _ _ 

IF(TN5TR(14) «GT«1) WRITE (T0UT9642)TNSTR< 14) 9TNSTR(12) 

.641  E 0 R M A T  { *  <• »  9 21) X 9 .» D a..KQI_ J_NV QJ^ E__DT-RAT$TNG  OPTTONM _ 

64?  FORMAT(»>»920X9*SFT  OT  s9^t399«DT  TF  TTME^DTFFFRENCFS  ARE  LESS  THA 

_ *N*  9  139  *  TTMFS  THF  FPRORSa  )  _ _ 

GO  TO  1000 

-  Jb  SO  .1 F  ( I N  S  T  Ri  ..  a9^.03J,,W  R  J  T  E  (1 0  U  T  9  6.^11 _ _ _ 

IFdNSTRdB)  .ME 9 03)  WR T TE  ( lOUT  9 662 )  INSTRllS) 

651  format  (  J-2M  j  *  HQ.  N  Q.L„5£Aa  ,SOXU  HD  N,ZR  QM P£R  MAMEl^  DA  T  A  SET  ! 

652  F0PMAT(9«*9?0X9»READ  SOLUTION  FROM  PERMANENT  DATA  SETe9l3) 

_ aa-  IQ-  IMD _ _ _ _ 

660  WRTTE(T0UT966n  INSTR(16)  ..  ..  ... 

-  -661  FORMAT(*^t  920X  9  *FTRST  RFrORD  TO  BF  READ;*9l4) _ 

GO  TO  1000 

_  67Q--WR1IEJ  IQUY^61I )  INSTR.  Q?) _ _ _ 

671  FORMaT(*^9920X99LaST  RECORD  TO  BE  READ8*9l4) 


_ GO  TQ  lOQJl _ _ _ _ 

6B0  IF{TNSTR(18)  .EQ*  03)  WP I TE f I  OUT  9 6B 1 ) 

. I  E.(  J  NSTR(IR)  .ME9O3)  WRITE(T0UT96B2)  INSTRdai _ 

681  FORMAT(94t9?OX9*DO  NOT  WRITE  SOLUTION  ON  PERMANENT  DATA  SET*) 
632  FQRMATr*^*  9  20X  9  *WRTTE  SOI  UTIQN_QN  PERMANENT  QATA_,SEY* 9  13) 

GO  TO  1000 

6 9-0-  WRI TELi  mu T  9  69 1 )  I  NS T R  ( 1  ^1 _ _ _ 

691  EORMAT(®^*  920K99FIRST  RECORD  TO  BE  WR I TTEN J *  9 1 4 ) 


30  TO  mOJI.  - 


700  IF((INSTR(ll)  .NE.O) 9  AND. ( TNSTR(20) .NE9O) )  WRITE ( IOUT970n  TNSTR?2 

^P)_  _  __  __  _ _ _ _ _ _ _ 


IF( (INSTR(ll) .EQ«0) .OR. (INSTR(20) .EO.O) ) WRITE ( TOUT  9 702) 
IQl_FQPMJ^T(*t*j2QX9*JA[CBEMji^  9Y  *9! 

HALVED*) 

702  F OR  M  A T  ( *  t  *  9  2 Q  X_9  *  DO- . NO  I_  MU.DlfX  I  NS T R  iLll  *J-. 


GO  TO  3000 

710  IF(  tNSTR(  21-L  -.EL0901  ..WR LIE  LIOU T j .7 U  ) _ _ 

IF{INSTR(21)  .MF9O) WRITE (I  OUT  9712) 

,71 1  FORMAT  1  *  4  9  9  20X9  *00  NOT  CUANGE  EXTRAPOLATION  OPT  I0N__(-IRSTR(  7 )  )  » 1 
71?  format  (999920X9*TNVnKE  FXTR APOL AT  TON  OPTION  (SET  INSTR(7)s2)  WHEN 

»WEISHT  IS  halved*)  .  -  ^ ,  _  .  . . .  -  _ _ _ 

GO  TO  1000 


720  WRITE  (I0UT9721)JNSJR(22J.  . . .  .  . - _ _ 

721  F0RMAT(9««920X9SSFT  TNSTR(23)s2  WHEN  ITER  >s*9l7) 


_  GO  TO  1000  _  _ _ _ _ _ 

7  30  !F(INSTR(?3)  .  EG).  0  )  WR I TE  (  T OUT 9 73 1 ) 

IF(tNSTR(?3)  .  FO,  1 )  WR  ITE  (LOUT  9.732 )  _  _ _ 

TF(TNSTR(23) «FQ« 2) WRITE (TOUT  9  733) 

731  FORMAT(9^  9  9  20K9_*00  NOT  USF  SMALL  PFRTURRATION  EXPANSIONS*) _ 

73?  FORMAT(*^*920K9*USF  SMALL  PFRTLIRRATTON  EXPANSIONS  AS  INITIAL  GUESS 

.  1  FOR  mfx.t  time  interval*) _ _ _ _ _ _ 
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DUMP  date  s  75157  n/5R/40 

733  r0RMAT{»«»9?0  x7'»’u  M  aTi  P F  R  T~U  R  RaTJON  EXPANSION  aS  SOLUTION*  ) 

03  TO  100.0  _ _ _ _ _ 

740  TPnNSTR(:?4)  .  Fa„  0  )  WR I TE  ( T  OUT «  74 1) 

IF(TN5TR(?4)  *ViF,p)  «RTTE(10UT_?74?) _ 

741  format ( • »20K9 'RESULTS  FROM  SMPfRT  NOT  PRINTED') 

74?  F0PMAT('^'»?0K»'P£SULTS  FPOM_  SMPpPT  APE  PRINTED') _ _  _ 

GO  TO  1000 

750  IF  ( IN5TP  (.237.iLE0a_U  WMI£-tlQUia5JJ^ _ _ 

IF ( INSTR(?5) .fq,2) write (TOUT  9 75?) 

751  F0PMAT(»-"»?0)(9'ASSUMt  PLENUM  IS  IS£NTR0P1C1I _ _ _ 

75?  F0RMaT(«*'»?0X9'SFT  TP  AND  TPT  s  MAXd'sN  TPqTCTO)') 

GO  TO  1000  _ 

760  WRITE (T0UT9761) INSTR(?6) 

.  761  FORMAT!'  ♦  '» ?0  X  t '  REVERT  TO  FXAf.T  SUPFPSONTC  SOLUTION  '«T7.'  TIME  TN 
1CREMENT5  AFTER  CHOKE') 

GO  TO  1000  .  _ _ 

1000  CIONTINUF 

WPITEdOUTtlllO)  {J»J=l926)  9JV  _ _ _ _ _ _ 

mo  F0RMAT(»1'»?6('  J*d?)/»  '^UPC-')/'  '9?6I5) 


. 11=^0  . . . 

DO  10?0  1=193 

IF(NVT  ( T)  .GTdl)  n=NVT  (|) 

io?o  continue 


WRTTE(TOUT9l  040)  ( {J»Isl ,?) ,J=1 o3) , (I  9 (TV( J9I) 9ARFa( JjL)  9J=l93) 9 
1  I=l9l1) 

10.40  format  ( 'O^LOW  AREJS.  VERSUS.  T!MF'/«0_  I  '  9  3  (  5X  9 '  TV  (  »  9  T  1 9 '  9  T  ) 't 
1  RX9 ' ARFA ( *  911 9  »  9l)  «  93X)  /«  «  9Rq(«29  )  950  (/'  »  9I396E16.5)  ) 

IF (NCTL.EO.R) RETURN  1  _ 

RETURN 

END 
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SOLVFR 


DaTE  s  T5157 


11/58/40 


SURROUTINf-  S0L(VER(^) 

„ . i  MPLiCTT  REALMS  (  ♦  M > Q-7  ^ Sf _ _ _ _ 

COMMON  pR?a<3950) 9aREaTS(3) »AREa^(3) tT\/(3»50) 9A(18) 9^(7) 90(30) 9 

1  TVr(3)  9T3FLay(3)  9RW(7) _ _ 

COMMON  PC9RC9TC9AC9H0CTC9FAE9EAPE9EAF9MDTSTR»!NFIN9TMS06S9GP02RS9 

.  JL  _ _ ■ 

common  6»SNl9riPl  900G9GP1029GN1029GP10G9GM1069G06P1  9G03M1  9 
QOGMKOOSPl 

2  MGPOGMf MGOGMl 9R9GP9OOR9PI 9PERR9aW0KW900Al 900Kr9KF9KW 
CQMMOJi_jSiJiT 
COMMON  T9TI9 
QOmQ^^AltkZ 
common  PN 

MOP  ,  MDF 

tpt  ,  tcto 

_ AF 

COMMON  PN 
MODI  9  _  MOF 
TOTi9  fCTO 


Itld!! 


COMMON 
=■_  M002j 


PP29  PPT29 


PT2f  PCT029  PE029 


_M0F29  MDPT29  M0CT29  MDPE29MDTS029MDCT029 


TPT29  TCTO 
APE29  AF 
COMMON  PN 
_ MM3i _ MDF 


-  TpT3,  TCT039 

APE34.  AF39__. 

COMMON  P50P09Ts6f 

. COMMON  5Y9SYl9Sy29SXV9SX29SDX9SEl9SE29SEMAX9fEP9$DE  _ 

COMMON  TNSTR(26) 9 1 DERUG 9 T TN9 TOUT 9NP 9 1 P 9 1 TERfNVT ( 3 ) 9l9NT9|PAGE« 
NPA^9$N9U  L 

2IFlG5»T>UG69TFLG7  9lFLG09?FLG99n  9T29I39I49T5 
COMMON  J1 9j?9 J39 J4  9J59J69j7  9Je9J99J10  9jn  9JI29JI39JI49JI59JI69JI79 
1  JIS9 0199 0209 J2l 9J229J239 J249J259J26 
COMMON  NCTU  _ _ _ 

integer  $N:  * 

TNF»|Ni^KF9KW _ _ _ _ _ 

C  ELLIPTIC  ENERGY  EOUa'TION  GIVING  PRESSURE  FROM  MASS  FLUX 

G  U  E  S  S 1  (  0 1 )  s  P  S  0  P0»TFLG2^A6^DSQRT  (  (A5»Dl)»»2)  _ 

C  ELLIPTIC  energy  EQUATION  GIVING  MaCH  NUMBER  FROM  HASS  FLUX 

. . __GUESS?(Ojj  sQSQRT  (  (GUFS51  (Pi)  ^^A8  "»K)^T0GM1) _ _ _ _ 

C  ELLIPTIC  EMERGY/CONTINUITY  EOUATfON  GIVING  MACH  NUMBER  FROM  AREA  RATIO 

_  _  6UESS3J  Dl )  sGUFSS2_(J^/DLi _ _ _ _ _ 

C  APPPOXIMATf  unsteady  wave  equation  giving  MACH  NUMBER  FROM  MASS  FLUX 

GUESS4  (Ol)  sOQGPl^(K«pSQRT<U«°A9^0n  ) _ _ _ 

SOKs^OOl 

_ G  0_  J  0  „(  10  9  2O93O94O)  9TFLG _ _ 

10  f XlsGUESSl ($Y) 

_ G0_TO  50 _ _ _ 

20  IF($YoGF«MS0M0)GO  TO  25 

SXls6Up'552($J') _ _ _ _ _ 

GO  TO  50 

^  _.2S_?xjsUno _ _ : _ _ 

SNs'O 

_ RETURN _ ■  _ _ 
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30  SKrs6UFSS3($Y»AS) 

. ^3.Q...m  5D _ _ _ — _ — - -  .  _ _ _ 

40  ir(TN5TR(9) .EQ.DfiO  TO  45 

.  __SXl=6UESS4Xm _ 

GO  TO  50 

_ 4  5__$X  1 5  _ 

DO  46  TsU7 

.  „  4^_ IKl  =$.K  1  _ _ 

50  IF(INST»(9> .EO.a>RETORN 

_  _  W R I  T E  ( in£BUGxlQ(U^Y-»JiDA^5£MAK _ _ 

100  F0RMaT{»  SOLVFRi/«OSYsIoFT.6,0»»  SDXst,E16e8«»  SEMAXs* ,f16,8/ 
1*  Q  N  *  t5XjLjX(J^A.t.Ii)XjJ_r_imJ  t  giXt  g  X  (N°U  V»8Xf  gy.iN-1 )  gjL9Xg  ^E  tM)  ^  g 
?  9X»  *E(M“n  «*10X*  •DE»9l2X»»EP«*12X^»DX»/»  »9l32(*«n) 

_ 5N»Q _ 

120  GO  T0(n00*1200,1300»1400)  ^TFLG 

-130  :$Ers  tSy»SY.r)/lY. _ _ 

!F(SN,WF,0)G0  TO  180 

140  $E2  =  $EL-_, _ 

$Y?sSY1 

_ _ -SXZs  IXJ _ _ _ _ _ 

5Xls$X?^$0X 

160  SNs'^N^l _ _ 

60  TO  J20 

190  SEP  =  $El«SFa _ _ _ 

SOF=DAnS($Fl ) -DaB5(SF2) 

_ _ WRlTE(IQE5UG^2i) 0 )  t SX 1 . $Y  1  # $X2 f  S_Y2 9 SE 1 1 $E2 f  $DF t SEP t SOX 

200  F0RMAT(»  »»J3»9F14«6) 

IF  (OABS  (SElKLE^SEMAXlPEIliR!^ _ _ 

IF(SEPeGT.O«)GO  TO  220 

$0X  =  «5*?DX _ _ 

210  SXlsSX2^S0X 

-  ,._.GD  LCLlM _ _ _ _ _ _ 

220  IF(SDE«LT.0.)S0  TO  140 

SDX=-5DX _ _ _ : _ 

GO  TO  210 

C  ENERGY  equation  GI YING _MASS.  FL UX  FROM  PRESSURE _ 

non  $Y1  s$Xl»^TOG»SXl^^GP10G 

SYl=U5riRT  tSYll _ 

GO  TO  130 

r  FNFRGY  equation  GIVING  MASS  FLUX  FROM  MACH  NUMBER _ 

1200  SYl=rSXl«(  U^GMl02«SX1^^2j  »»M6PGM'2 

GO  TO  130  _  _ _ 

c  AREA  Ratio  versus  mach  numrfr 

1300  SYl  =  (TOGPl»aa^  GM102_^_SX1#^2)  )  <»*>GPGMia./SXl _ 

GO  TO  130 

C  UNSTEADY  MaSS  FLUX  FROM  MaCH  .  NUMBER  _ _ 

14  00  $Y1=$X1  (  U«GM102»SXU  »»MrPOGM 

GO  TO  130  _ _ _ 

END 
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SUBROUTINE:  PRINT(^) 


_ IMPL'ICTT  :»FAL»B  ( ft-H tM» Q~7.«) 

COMMON  aR5»<3*50)  .4RFaTS(.3)  .  ABEAM  (31  .TV  ( 3*50)  .  A  ( 10)  ♦£  ( 7»  ♦ 
1  TVf <3) .Ton AY(3> .BW(7) 

BOO)  9 

common  PC9RC9rC9AC9MncTC9EAF9EAPF9EAF9MnTSTR9lNFIN 

1  SGOR 

oTMGOGS 

9GPO26S9 

COMMON  G»3M1 9GP190OR9GP1O296N1029GP10G9GMIOG9GOGP1 

9GO8MI  9 
GPGMlPj. 

?  MfiOOGM.MSOGMl.R.GR.OOR.PI.PERR.AWOKW.OOAl.OOKF.KF.KW 
.  COMMON  TSLI.TSH.TSW.TSP.iI.SA.TS)TA.TSV.CTD.CTA.PVt£ltOTSV.TAUW 

COMMON  T9TI 9DT9TSTP9DT029TST0P900nT90T0PV 

COMMON  Al9A?9fl39A49A59A69A79A89A99AlQ9An  9 Al P9 Al Ig A149 AlS^AlAtAlT _ 

COMMON  PN  ,  PP  .  PPT  ♦  PO  »  PT  .  PCTO  » 

_-....M0D  .  MOF  .  MOOT  ,  MDCT  .  MQPE  .MOTSO  ».MOCTO  . 

PEO  9 
TEO  9 

MOE  9 

TP  9 

-  T»T  ,  TCTO  •  RP  .  RPT  .  REO  .  RCTO  .  ACTO. 

A°E  .  AF  ,  MN  .  MO 

MCT  . 

AE  9 

COMMON  PNI9  PPI9  PPTI9  PDI9  PTI9  PCTOlt 

“  MOOI9  M0F1«  MOPTI9  MDrTl9  MDPFl9MDTS0l9MnCT0l9 

PEOl. 

lEOl. 

MOEl. 

TPl. 

-  ToTl,  TClOl.  RPl.  RPTl.  REOl.  RCTOl.  ACTOl. 

-  A®E1.  AFlt  MNl.  MOl  .  . 

MCTl. 

AEl. 

COMMON  PN2,  PP2,  PPT?.  PO?.  PT2.  PCT02. 

MM?.  MOF2.  MOPT2.  MDCT2.  MOPE2.MDTS02.MOCT0.2t^. 

PE02. 
TFO^.  . 

MDE2. 

.  _Tp.2, 

-  TPT2.  TCT02.  RP2.  RPT2.  REO?.  RCT02i  ACT02. 

-  AOE2.  AF2.  MN2.  Mn2 

MCT29 

AE29 

COMMON  PN39  PP39  PPT39  POlt  PT39  PCTOSt 

PE039 

MDE39 

_  MDDi,  MOF3.  MDPT3.  MOCT3.  MDPE3.MDTS03.MDCT03. 

TE039 

TP39 

-  TDT3,  TCT03.  RP3.  RPT3.  RE03.  RCT03.  ACT03. 

.  -  A“E3..  AF3.  _MN3.  M03 

MCT39 

AE3. 

COMMON  PSOPO.TSOTO.RSORO.MSOMO 

COMMON  $Y,SYl.tY2.$Xl.$X2.$OX.*El.$F2.$EMAX.«EP..$DE.  _  . . 

COMMON  1NSTR(26) . IDERUG. 1  IN. lOUT .NP. IP. I TER.NVT ( 3) . 1 . NT . t PAGF . 

_ 1NPA3E.*N.TT(3) .J.TMl .ITIME.ND.NN.NCT.IFL6.IFLG1.IFLG2.IFL63.IFLGA. 

2IFLR5.TPL36,IPLR7.IFLG8.tFLG9.Il .T2. 13. 14.15 

COMMON  Jl  .J?.  J3.J4.J5.J6.J7,J8,J<>.J10,J11,J12,J13. 

JH.J15 

.J16.J17, _ 

1  J1  JlRf  jao? J21 9 J2a« J2A9 J25f J?6 

common  NCTt  _  _ 

OIMENSTON  V(2494) 

EQlHVAj^FNqC,  (PN^V(l»n  ) _ _ _ _ 

INTEGER  SN 

REAL?»B  INPINfKF^KW _ _ 

JPsTP^J 

IF  (  TPsNEoNP)  R^TUR^} _ _ 

TPsO 

_ U  =  JJ6»l . . 

IF(INSTR(13) «NE«0)GO  TO  300 

IFnPAGE*EQ,0)RO  TO  100. _  _ _ _ 

IFnPAGroL(T.NPAGE)GO  TO  140 

ion  WR|TEn0UT9l20)  (I^lsl97l _ 

120  format  (  tj  »9RX9*T»9nx«  9TSTRM13X9  9TI*  9l4X9»PT9  9l4Xf  »PP»9l4X9 

„1  ’  ®0  •  '  PN  •  ♦  UXt  tppT*  tAXf  tND»/»  e  ^GX  »  » PCTO  *  1 1 3X  9  » PEO » 9 1  3X  ♦  <  MCT  > 

»9  13X9  9MD* 

2*  14X9  ’MN*  *  13X» •MDCT*  »12X»  »MnPT»  913X9  ^MQpg 96X9* NM</»  » 9 7X 9 « MQF » 9 1 3X 9 
39  •MOES  12X9  «Mr)PF»  9 12X9  *MnTS0»  9llX9  9MDCT0’  912X9 

4*TP»  U4X9  •  TPT»  9 1  3X  9 «  TFO  » 97X9  ^NCT  °  96X9  »TCT0<  9 _ _ _ 

5  13X9  9RP9  9l4X9®RPT®'9riX9  9RF0  9  9r2K9«RCT0  9  9l3X9  9AE9  9UX9  9APE«9 
. .  e>  1  3X9.1AF  •  .97X  9  » ITER®/®  »  97  (6X9  ®E  ( >  91 1 9  ® )  >  96X)  95X9  »  DT  •  96X9  »Jl6* 
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PRIOJT  OftTE  »  75157  11/58/40 

“‘-7* "“‘TniT'-M ) 

_ I®A^E_a5 _ _ _ _ 

140  WRITE! TOUT. 160»T»TSTR,tl,PT.PP.PO.PNfPPTtND*PCTO»PEO» >167 tMOtMNt 
1 MOC T  . MOPT  . MOiL. l^NiMQFj MOE . MOP£iMplSO .HDCTO.TP.TPT.TEO.WCT.TCTO.RP. 
^RPT.REO.RCTO.AREATS.ITER.E.nT.n 

150  F0RWAT(5(/»  »  .  BE  15.6.  T4 )  i _ ^ _ 

IPA3E=TPASE*6 

_  RETJRN__ _ 

300  lEdPAGF.FQ.OlGO  TO  320 

I E  ( I  PARE  .LIT.NPAGE  iGO_TO  J^O _ 

320  WR'iTE(TOUT.346) 

340  EORWAT  ( •  1  •  1 6)!..  •  T  •  j  1 1  X .  «PPT»  .  IPX  .  » TSTR»  .  IPX.  «PT»  .  1 IX.  »PP»  .  1 1  X. _ 

1  'PO*  *1 1  X.  •P'>j«  .lOX.  •PEO*  .ioX.  tPCTO'/*  *  .132!  *-*  >  » 

_ LPAS652. _ 

360  WRtTE(TOUT.380)T.PPT.TSTR.PTiPP.PD.PN.PEO.PCTO 

390  EORWAT!*  *.9ELli51 _ l1 _ 

IPA3EsTPA3E*l 

I E  ( NJCTL .E 3. 1 0 )  REIURN.J _  _ _ 

RETJRN 
_ E-ND. 


no 


AEDC-TR-76-39 


RINOM  date  s  75157  11/58/40 


SUR^OUTlNPi  RINiOM(#) 

I  ^FX '}  C  IT  _  RE  A  8  (A-H9M9  O^^Zgfr _ _ _ _ _ 

COMMON  aR>A<3950)  ^ARFAfsO)  f  ARE  AM  (3)  9  TV  (3?  50 )  f  A  ( 1 0)  9E  ( ? )  9  8  <  30 )  9 

1  TVr(3i  .TOELAYO)  ^RW<7> _ 

common  PC^RC^TC^AC^MnCTC^EAF^EAPEfEAF^MDTSTR^tNFIN^TMSOGSffGPOSGS* 

...  1  _S.OOR..  _ _ _ _ _ _ _ 

COMMON  G«SMl9RPl  9r)Oe»GPlOa9RM10a«GP10G@GM100fGOGPl  sGOGHU 

„1  . 00  SM 1 » DQ.3P1  >  8RQGM1  >1  5GlH102  tlQGM  1  ?  TOG  f  HGPGMB  t  tflGPXi,.^PJ5^E8 _ 

^  Mr,P06M9M50GMl  ^R^GRsOOR^P!  9PERR@  AW0KW®00Al  ®OOKF@KF$K^ 

_  COMMON  TSli»  TSH»TSW9TSP»TSA9T5WA^TSV9CTDtCTAfPV^PVQTSV^TAU^ _ 


COMMON  T»T1 *OT»TSTR9DTO2vTSTOP90ODT»OTOPV 

COMMON  Al9A?9A39A49A5gA69A7tAB9A99AlQf An»Alg^Al39AI49A15»Al69A17 


COMMON 
-  MOD  9 

PN  9  PP  9  PPT  9 

MOF  9  MOPT  9  MOOT  9 

PD  .9  PT  9  PCTO  9 

MOPE  9MDTSO  9MDCTO  9 

PEO  9 
TEO  9 

MOE  9 

TP  9 

-  t»t  , 

-  APE  9 

TC^O  9  RP  9  RPT  9 

AF  9  MN  9  MD 

REO  9  RCTO  9  ACTO9 

MCT  9 

AE  9 

COMMON 
»  MODI  9 

PNlf  PPl 9  PPTl 9 

MDFI9  MDPTI9  MDCTl^i 

POI9  PT1»  PCTOI9 

MDPEI9MDTS0I9MDCTOI9 

PEOI9 

TEOI9 

MDEl  9 

TPl, 

"  TPTI9 
-  ADEl, 

TCTOI9  RPl.  RPTI9 

.  AFI9  MN1»  MDl 

RE019  RCTOI9  ACTOI9 

MCTl  9 

AEI9 

common 

-  M0D29 

PN29  PP29  PPT29 

M0F29  M0PT29  M0rT29 

Pr)29  PT29  PCT029 

MDPF29MDTS029MDCT029 

PE029 

TE029 

M0E29 

TP29 

-  TPT2, 

-  APE?9 

TCT029‘  RP29  RPT29 

AF^f  MN2  9  Mn,2 

RE029  RCT029  ACT029 

MCT29 

AE29 

COMMON 
»  M0039 

PN39  PP39  PPT39 

MDPT39  MOrTBo 

PD39  PT39  PCT039 

MDPE39MDTS039MOCT039 

PE039 

TE439^ 

M0E39 

TP3» 

-  TPI39 
»  APE39 

TCI039  RP39  RPT39 

AF3*  MN39  MD3 

RE039  RCT039  ACTOSt 

MCT39 

AE39 

common 

common 

PSOP,0  9TSOT0  9R50R0  9MSOMO 

? Y  9  * Y 1 9  s Y 2 9. Mil s X2 9 ? 0 Xj_SFJ  » SF 2  9 SEMAX  9 SEP9 SPE _ ^ 

COMMON  IN5TR(?6) s lOEBUG , T IN s I  OUT sNP 5 1 P ? I  TER sNVT ( 3) sIsMTslPfiGE# 
lNPft5E.«N?TT(3)  » J*  IHl.  UJMF.NOfNNsNCislFLflUFtGiAlFLGmEL^^ 

2IFL3b»TrL06.iri.r,7.IFL08.TFLG9en.l2»I3»I4.I5 

COMMON  Jl,  J?9  J3,J4.J5  9J6_^7  9J8j  J9?J10.jn9J12sJ13, 

JUiJIS 

9  J_l_6f_Jl79 

1  J1 B9J199 J?09 J21 9 322? J239J249J259 J26 

COMMON  NCTL 

integer 

RFAL*8 

$N 

TN^iIN9<F9KW 

1=0 

4(1)=!. 

10  T=I«1 
ir (1 ,57 

96)00  TO  20 

IM1=I-1 
A(l*u  = 

A(n»(At0)-IMl)/I _ 

WRITE(I0t8UG9l5) I9II9IMI 

15  FORMAT(i  I  =  »9l7».'  n  =  '9T79* 

GO  TO  JO 

ao  WRJTE(TOEgUG930JA  _ _ 

30  format ( *09 IN0M»/9  « 9lOE13«5) 


00  40  T  =  l9  7_  _ _ _ 

40  A  (  T  )  =A  (  n  »A  (9)  {  i"!) 

WRITE(TDERUG930) A 
RFTJRN 
END 
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RFVEWT  date  s  7515?  H/58/40 


‘SURPOUTINE  REVERT (#) 

IMPU’ICIT^  RFftL^B  (a"HtMyO-7f  _ _ _ _ 

“common  area  (3/50)  ^  AREaTSO)  ^AREAM(3)  9  TV  ( 3 « 50 )  9  A  ( 1  0 )  ^E  ( T )  « 8  (  30 )  o 

1  _TVM.3)  9T:)£L4.Y0U^L) _ 

COMMON  PC9RC9TC9 AC9MnCTC9EAE9EAe>F^EAF9HDTSTR9|NFIN9TMS0GS9GP02GS» 
1  SOOR.  _ _ _ 

COMMON  G9SMI 9GPI  9OOG,GPin?9GMrf)29GPiO6»GMl0G960GPl  9GOGHI 9 

1  00  QM 1  ^  Q.Q6^Lg-5^.Q^gGM.I02.8  ISm.  Is  JQBj  -MGP.£M_2  TOePl.i^Pm£j _ _ 

?  MGPOGM9MSOGMI 9R9GR9OOR9PT9PERR9 AWOKW9OOAI 9OOKF9KF9KW 
COMMON  TSLIfTSH9TSW9TSP9TSA»TSWA»TSV9CT09CTA9PV9PVnTSV9TAUW _ 


COMMON  T9n  9DT9T5TP9nTO2,TSTOP9  0OOT9DTOPV 

COMMON  Al 9A?9A39A49A59A69a79A89AR9A109All9A129Al39Al49Al59Al6fAl7 


common 

PN  9 

PP  9 

PPT  9 

PD  9  PT  9  PCTO  9 

PFO  9 

MOE  9 

•”  MOO  9 

...W 

MDPT  9 

MnrT  . 

MDPE  .MDTSO  iMorTO  . 

TEO  9 

Tg_  9 

»  TPT  9 

TCTO  . 

RP  9 

RPT  9 

«E0  .  RCTO  t  flCTO* 

MCT  9 

AE  9 

»  A»E  9 

MN  9 

MD 

COMMON 

PNl  9 

PPl  9 

PPTI9 

PDl.  PTl*  PCTOl* 

PEOl, 

MDEI9 

-  MOOI9 

MDFlo  HDPTI9 

MQTTIjl. 

MDPEliMDTSOltMOrTOl. 

TEM.» 

_JM9 

-  TpTI, 

TCTOI . 

RPI9 

RPTl  * 

REOl,  RCTOl.  ACTOl* 

MCTI9 

AElt 

- _ APEK 

AFI9 

MNI9 

MBl 

COMMON 

PN29 

PP29 

PPT2» 

pn29  PT29  PCT029 

PE02, 

MDE29 

r  M0P?9 

.MDF29- 

MDPT29 

MDrT2* 

MDPF29MOTS029MnCT029 

TE02. 

TP29 

-  TPT29 

TCTO<>. 

RP29 

RPT2* 

RE02,  RCT02*  6CT02. 

MCT2» 

AE2. 

_ -  APE29 

AF2i^ 

„  MN29 

MD2  . 

COMMON 

PN39 

PP39 

PPT39 

P03*  PT3»  PCT03* 

PE03, 

M0E3t 

«  MODS* 

MDEJ^ 

M0PT39 

MncT39_ 

Mr)PE3tMOTS03>MDCT03» 

TE03, 

TP3. 

-  TPt3, 

TCT03* 

RP39 

PPT3, 

RE03»  RCT03*  ACT03* 

MCT3* 

&E3« 

-  APE3. 

AE3. 

MN3  9 

_ !1D3_ 

C OM MON  PS OP 0 i T S0>  0  » R SOR 0  9  MSOMO 

^QM MON  J Y i S Y 1 9SY29SXI 9$X?9SnX9$El fSEatSEMAXaSEPfSPE 


COMMON  !N5TR( 26) 9 1 PERUG? T T N, I  OUT  9 NP 9 ! P9 ! TER9 NVT ( 3 ) 9I9NT9IPA6E9 

_ 1NPAG£9^N9IT(3)  9  Uf  LM 1 9 1 T I  ME  i  NO  9  NN  9NCT  t  !FLG  9_!  ELGl  9  !EtG29  IEL33  9 IFLG4 1 

?tFl  G59TFLS69lFLG79lFI.G09TFlG99ll9!29!39!49l5 

.  COMMON  ^  U I ,  J29  J39J49J5  9 J6  9  J7  9  J8  9  JR  9  J1  0  9  J1 1 9  Jl  2  9  J1 3  #  JU  9  J1 5  ♦  J16  9  J1  7 1 

1  J19  9J199  J20  9  J219J229J«::39  J2'4  9J259*J26 

COMMON  NCTl  „  _ _ ! _ 

INTEGER  SN 

_  -  RIAU^B  INpiV9<F9KW _ _ _ _ 

B(l)=l«/A(l) 

B(2)  s-A  (2)  /a  (_l )  ^^3  . . . . .  . . . . 

R(3) ^ (2«^a (2) ( n ^A(3) ) /A ( n ^^5 

B(4)«s(.5»«»A(n»A(2i^A(3)_-A(l)^^2^A  ( 4 )  "5  9  ^  A  ( 2 )  ^^3 )  /  A  (1 )  ^^7 _ _ 

B(5)s((^«#6(r)^»2^A(2')^A(4)^3o®A<n^^2^A(3)^®24.U0'»A(2)^^4™ 

A  Ai  1  ).«  «  3  ?  A 15 1  -  2  1q  ^  A  (  1  )^^(?)^  ^  A  (31  )/A(l)^^9 _ _ 

R (6) s (7^^A ( n  »«3^A (2) (5) ♦7®^A ( 1 ) A ( 3 ) ^ A ( 4 ) ^84 « ^A ( 1 ) ^A (2) ^®3 

R  »A(3)-A(l)^«4<^A(6)-28.«A(l)^^2®A(2)^^2^A(4)^2flo^A_(_LL®l_^A(2J _ 

C  »A (3) »«2"42*»6 (2) ««5) /A ( n 1 

B(7)=(B,»A(1 ) ^^4<^a (2) ^A (6) »Bo^A(l)^^4^A(3)^A(S)»4e^A(l) ^^4^ A (4) ^^2 
A  ♦I  EO.^A ( U  *®2-A (2) *«3^A (4) ^TbOo^A ( 1 ) (2) (3) 

_ R  13?9<»A  (2)^^6’-A(l)^«S^A(7)-36o^A(n^^3^A(2)^^2^A(5)-  _ _ 

C  72>A(1)  »«3»A(2)^A(3)®A(4>“129®A(n^«^3^A(3)®^3-330«^A<l)®A(2) 

f)  »^4^A  (3)  ) /a  ( 1 )  <>^13  „  _ _ _ _ _ 

bo  10  Isl97 

10  A(T>=B(T)  _ _ _ 

WRITE(TDE3UG9  20)  A 

20  F0RMAT( « ORE VERT »/»  *  9lOE13,5) _ 

RETURN 

E.Na _ 
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SMPFRT 


DATE  s  75157  .  ~  n/5^^/40 


r 


SUR50UTTNE  5M9PPT(o) 

TMPU'ICIT  ^EAL««  . . .  . .  ,.  . .  . . . 

COW^ON  aR^a  9  ARPflJS  (  3)  9AREdM(3)  9 TV  (  3 9 50 )  9  A  ( 1 0 )  tF  (  7 )  » 5  ( 30 )  » 

1  TVF(3) 9T3ELAY(3I 9RW(7) 

C0MV10NJ  PC9RC9  TC9AC9MnCTC9FAF9FAPF9R  AF9Mr)TSTR9  INFIN9TM30';S96P0?GS9 

1  5COR  .  .  ..  .  .  .  _ 

COMMO'^  G^TiMl  9RPI  9  00G9GP10^9GH10?9GP1  OG9GMIOG9ROGPI  9GO3MI  9 

1  OOSMl  9OO3PJ  tGPGGMl  ,Sf5Mi.n^?T0GMl  9T0(2?.MG^PGM2f  TOGPJ  .  . . 

?  MCPOGM^MSOGMl 9P9GR90nR9PT  9PERP9 AWOKW9O6AI 9OOKF9KF9KW 


Common 

common 


TSlu  TSH9TSW9TSP9T5A  9TSWA9TSV9CTD9CTA9PV9PV0rsV9T AUW 
T9TI  9nT9T5TR9DT()?9TSTdP9  00nT90T0PV 


COMMON 

a1 9AP9A39A49A5 

9  Aft  9  a7  9 

AG9A9«Al09All9Al2»Al3  9Al49A!59Alft9A_l  7 _ 

COMMON 

PN  9 

PP  9 

DPT  9 

PD  9  RT  9  PCTO  9 

PFO  9 

MOF  9 

-  mdd  » 

MDF  9 

MOPT  9 

MDCT  9 

MDPF  9MOTSO  9MnrT0  9 

TFO  9 

TP  9_  .  _ 

-  TPT  9 

TCTO  9 

RP  9 

RPT  9 

REO  9  RCTO  9  ACTO9 

MCT  9 

AE  9 

»  A»E  9 

A  F  9 

MN  9 

MD 

COMMON 

PNl  9 

PPl  9 

PPTl  9 

POI9  PTI9  PCTOI9 

ppni , 

MDFl  9 

»  modi  9 

MDFI9 

MOPTl 9 

MDCTl 9 

MOPFl 9M0TSnl oMOCTOl  9 

TE01» 

..  TP  If _ 

-  Tail. 

TC^Ol  9 

RPl  9 

RPTl  9 

REOI9  RCTOl?  ACTOI9 

MCTl  9 

AFI9 

-  A=»El9 

A.F  1  9 

MN1,9 

.  MOl 

, . . .  , .  _  _ 

_ 

COMMON 

PN29 

PP29 

PPT29 

Pn29  PT29  PCT029 

p'e029 

MnF29 

“  M0D29 

MDF29 

M0PT29 

MDCT?9 

M  D  P  E  2  9  M  D  T  $  0  2  ?  M  0  C.T  .0  2 . 

._JJE  02  r 

™  TpT?9 

TCT02, 

RP29 

RPT29 

RE029  RCT0?9  ACT029 

MCT2  9* 

AE?  9 

APE29 

A  F  2  9 

MN2  9 

md2 

COMMON 

PN39 

PP3  9 

PPT39 

Pn3  9  PT3  9  PCTO’39  ' 

~PE0'3  9 

MbF3, 

“  W0D39 

MDF39 

M0PT39 

MDCT3?. 

mPI39  MnTS039MOrT039 

_L£03j_ 

_ TP3. 

»  TPT39 

TCT039 

RP39 

RPT39 

RfSo?  Rcfoa?  ACT039 

MCT39 

aE3. 

-  6PF3, 

AF3  9 

MN3, 

M03 

COMMON 

PS0Pn9  T50TO9RSORO9MSOMO 

COMMON 

■1>Y9^>Y1  9 

9$X?9%nX9iEl  9^F?9$FMAX9liFP??DE. 

common 

TNST9(?ft)  9  TnFPUG9  T  TN9 

tOUT9NP9 IP9  TTER9NVT (3) 9  T  9NT9 

TPArGE9 

1NPA3E9'^N9  TT  (3)  TM].  9T  T|  MF*Nn9NN9NCT9.iFLG..UFLr7l  9  T  FLG?  9 1 FLG3  9  T  FLG4  ♦ 
?TF|  05?  TFLOGo  T^LGYo  TFI.GH9  TFLGQ?  T  1  9  T  ?  9  I  3  9  T  4  9  1 5 
COMMON  Jl  9  J2  9  J39J49  jH9  J69  J7  9  JG9  J99JIU9  JU?J„129v)13?  J1A?  JI5j8  J16aJ1Ij _ 

1  JIW9JI99JPO9J21  9j??9.j239j249j?S9 ,  .1  ?  n 


COMMON  MCTU  .  . .  _ 

DTMFNSTON  IFXTP(19) 9FPS(19) 90(19) 9V( 3 094) 

dimension  JJ(4)  _  _ _  _ _ 

FODI VAl FNCF  ( V ( 1 ) oPN) 

CQMOt 5  K ( 4 ) 9 Y (4 )  _ 

INTEGER  $.V 

REAL'*^B  NUJ  9NU?9NUin9NU2n9MUlN9NU?M9  INF1N»KF9KW 

1  P  3  4  5  5  7  A  9  10  1  1  12  13  \7  15  1ft  17  IG  l« 

DATA  iPXro/  G, 1 39 IO9 U 9?1 9  99l29?59  7916?  5?  49  I9I49  0?  0?  ?9?0^ _ 

M  17/ 

MACM(Dl)  -  OS09T(TOGM1  ^((01  /  PCTO)  ^^(“GMlOG)—  IflOO)) 
W9ITF(TDEGUR9l) 

1  format {• 1 smpfRT  */«  »  9ft ( »  =  » ) ) 


C  COMPUTF  C0M5T ants  for  FXPANSIONS. 

IFdFLPP.NFBDGO  TO  90 
C  EOUaTION  1 

CAl  5-1, DO 

Ad)  =  Al  /  DSORT{  TFOl  )  A2 
Cai  -  hEl  ^  Ml] . _ .  .  . 
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Cri  =  PEOl  »  Ad) 

C^l  =  0,5')0  »  PpOl  »  Ad)  AEl./.IELQA _ 

r  E'juattonj  2 

90  CA?  =  -lOO  _  _ 

A(?)  =  Ai  /  DSr^RK  TPl  )  »  A2 

Cq?  =  ™aPf1  «  A (2) 

CC?  =  »PPl  A(2) 

CO?  «  0,r)^0  »  PPl  «  A  (2)  .  «  APEI  TPL  _ 

r  F3UATIOM  3 

CA3  =  -lOO 

rq3  S  -(pPl  »  Pnl  «  A16)  «  OOKF  »  A2 
cr3  =  -AFl  »  OOKF  «  A? 

C33  =  “CCl  »  Al5 

r  EQUATION)  4  _ 

CA4  =  -1.30 
Cq4  =  -AWOKW  »  a2 
CC4  =  -Ct>4  «  Al5 
C  F9tlA7TO>)  5 

CA5  =  -lOO 

s  nroav _  _  _ 

CC5  =  rRb 
C35  =  rR5 

CFS  =  TRb  »  (  MHPFI  ♦  MRFl  ♦  MDPTl) 

r  FOUaTIO^J  6 

ca^  =  KDO 
C36  s  \ ,00 
CC#^  =  -1.30 
TF(TFLr.2.'JE.l)G0  TO  91 
r  F3UATI0M  7 

CA7  =  l.DO 
CR7  =-l .DO 

CC7  =  -1.30  .  _  .  _  _  . 

r  F9UaTT0\J  fl 

CA^  =  -1.30 

A(3)  =  1-30  -MCTl 

A(4)  =  1.30  ♦  OMIO?  «  MCTl 

Cq«  s  mhCTC  A(3)  /  A(4)  ««  (GOGMl  «  2«00) 
r  FOUATinvj  9 

CAO  =  -1.30 

A(5)  s  1,30  ❖  GMiop  ®  Mrri  2 
CRQ  5=  -G  »  A(3)  PFOl  /  a(4)  /  A(5) 

C  F3UATT0VJ  in 

CAin  s  -i.no 

cqio  =  -  3M1  »  A<3)  »  TFOl  /  A(4)  /  AJS) 

c  f3uatio>j  n 

91  CAii  =  -1 „no 

TC  (  TFLr,?)  99*99999  100 
inO  CRil  =  0,530 

ceil  =  CHll 
GO  TO  ml 
99  C91 1=1 .nO-Al7 
CCl 1=A17 
C  FOUaTiovJ  1? 

101  A(9)  =  -  3M1  /  MOTSOl  ?  / 

AdO)  =  GMl  /  MOTSOl  3 
CaI?  =A(9)  4  Monl 
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CBl?  =  fl(lO)  MODI 

I  r  { T  Q  EQi.  U  Al6l!:Pi)iZPE0J _ 

IP’(TFLP2oVJE.l)  A(6)sPni/Pf:T01 

A(7)  »  A<5)  TOG . . ^ _ _ 

A{6)  s  6(6)  »»  GPIOG 

NLHD  =  T05  A(7)^:^..GPIQG  AlBi _ 

NU?:)  ”  TMr,OGS  »  A(7)  »  6P02GS  »  A  (6) 

. . -  IF(  JFLG2)  94  99.9i^QjfQJ _ 

93  CC12  =  NUIO  /  PDl  /  PPOl 

CQl?  =  NU?D  /  (  PDL  .^.-PEQJL1„1*_2„.__ 
GO  TO  95 

9A  CC12=  NUlO/PDl/PCTOl _ _ _ 

CDia  =  Nll2D/ (POl^PCTOl 

.  95  IF(IFLG2«SE«.l)GQ.ja_9j2 _ _ 

C  FOUATIOvJ  13 

CA13  =  A(9}  ^  MDCTI _ _ 

C913  =  A(10)  »  MOCTl  ? 


B(l)  =  PNl  /  PEOl  .. 
B(?)  =  Bd)  TOG 
B{3L  =  aULj?^  QPJOJI 


NUl'J=TOG*B  (?)  -GP106*FI(3» 

NU?'J=TMr,0GS«B(2)-RP0?GS*R(3)  . . 

CC13=NU1N/PM1/PP01 

CGI  3SNIIPN/  (  PNl  *PE0  1 )  **2 

C  EaiMTlO'l  U 

CA14  *  -i.no 

CB14  =  TS4  «  SGOP  /  OS09T(  TEOl  )  *  A2 

CC14  =  -0.500  »  PEOl  *  CR14  /  TEOl 

- 

C  EOUATIOvJ  17 


92  GO  rO(Q6f98)  fl/LGS _ _ _ 

9P  CA17SA? 

-  _ C9L7?-fiATCllU _ _ _ 

GO  TO  97 

96  CA17  s  RPl  _ _ _ _ _ _ _ _ 

CB17  s  «.  s  ^  PPl 

C  E3UATIOVJ  IB _  _ _ 

97  CAlBs  =UDO 

CaiB  s  OaSDO. _ _ _ 

CC16  ~  PPTl  "  PPl 

C  FOUaTIONJ  lo  _ _ _ _ _ _ 

CA19  =  9  &  9P1 

CRJV  =  R  ^  TPl  .  _ _ 

CCl  9  s  "-A2 

IP{IFLG2)  ?9  9999f3 _ _ _ ; 

r  SJPFRSO>JIC  RRflNCH  _ _ _ _ 

?  IF(TOEPijG«EQa03)GO  TO  70.  _ _ 


Cfll 

7NJFIN 

C91 

= 

INFIN 

rci 

=: 

tnftn 

COl 

tnfin 

Cft7 

= 

T  NFTN 

CB7 

a 

P4F  I  M 

CC7 

s 

TNIFTM 

CAR 

s 

TNFJN 
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CRP  s  tNFTN 

CA9  =  TNFLN  . ;  _  _ _ 

C^Q  =  tnjFTN 

CX5  =  TNFTN  . . . 

CMO  =  INC-, IN 
C510  =  TNrtN 
C5U  =  INP'IN 
C51?  =  iNrjN 
CA13  =  INPIN 
CBl 1  =  TNPIN 
CCl 3  =  TNPIN 
cm  3  =  TNpIN 
CA14  =  INPIN 

C514  =  iNPIN  _ _ 

CC14  =  INPIN 

c  f^uation  n  _ _ _ _ 

70  SAL^n  =  -ecu  /  CAU 
C  FQUaTION  Ifl 

SAL^IB  =  -C515  /  CAIB 

59ET18  =  -CC18  /  C.AJB _ _ 

C  equation  10 

A(l)  5  -loOO  /  CAIP  _  . _ 

5AL=>19  =  CR19  SALPlfi  «  A(lJ 

S5FT19  =  rCl9  ^  Ad)  _ _ 

SGA519  =  CR19  SOFTIB  ^  Ad) 

C  F:)UaTION  2  _  _  _  _ _ 

A  (?)  =  -1 ,00  /  CA? 

SAI  02  =  (CP?  ♦  CO?  «  S8FT19)  A(?) 

SPFT?  =  CO?  «  5ALP19  ^  A(?i 
SGA5?  s  iVX?  »  FAPF  ♦  CO?  «  SGAMIO)  «__M2) 
C  FOUaTTON  3 

A(3)  =  -1,00  /  CA3„  _  _  _ _ 

SAL53  =  CC3  »  A(3) 

SRFT3  =  C03  »  A(3)  . . 

SGA53  s  C33  »  PAF  o  A(3) 
r  F3UATI0N  17 

A(4)  s  -C317  ./  CA17 

5AL017  =  5ALP1B  «  A(4) _  _ _ 

SPFT17  =  5PFT1B  «  A(4) 

C  F3UATI0N  4  _ 

SAI.P4  2  CC4  SaLPU 
C  FQUATION  5 

SALP5  2  CA5  ♦  Crt5  »  SPFT? 

S9FT5  =:  C35  ^  SALP?  ♦  jCr5  ®  3AiP3 
SPANS  =  CCS  »  5PFT3 

SFPS5  =  C35  »  SPAM?  ♦  CCS  .SGAM3  ♦  CF5. 
r  EQUATION  4  CONTINJFO 

S3FT4  =  C34  »  5ALP17  _  _ 

SPAN4  2  C34  »  5PET17 

C  FQUATION  5  rONlTN'JFO  _  _ _ 

SI0T5  =  SaLPS  ♦  SALP17  »  SRFT5 

A (5)  =  -1.00  /  SIOTS  _  _ 

S/FT5  r  SPAMS  »  A(5) 

SFTAS  =  COS  A(5)  _ 

SKAP5  r  (SOFTS  «  SBFT17  ♦  SFPSS)  ®  A(5) 

C  EQUATION  4  CONTINUEO .  . . . 
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SGaMO  ^  ?NF|M 

_ SAL^14,  a  lNF,i5J. 

SBFTH  s  TMFINJ 
SGaM14  ^  TNri'g 
SEPSH  ^  INFIV) 

_ _&ZELL4_.^_liiElX. 

SETaU  ^  INFfM 


Y(l)  ^  -A(T)  ❖  y(3) 
^  . . Y  ( _? )_  IT )  -  Y(3) 


SORT  ROOTS 
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00  200  K  B  l9? 

_ IF(0A95(D!MAG(YiK)  1)  KD-lg)  GO  TQ _ _ 

B(15)  E  DREAL(V<K) )/PDl 

I  TEJ_I  ^9)K»Y<n  »Y(?)  »A14»B(15) _ _ 

9  F0RMaT(9  YE*94F13e5f»  al4s9 fF13^5® »  R ( 15) ® ? E 1 3^ 5) 

IF(3AB5(9<15)).GT,PARS(A14))60  TO  200 _ 

I  s  I  ♦! 

_ _ 

200  CONTINUE 

I1U.LF«1LG0_T.0  205_ _ 

IF(0AR5(D9FaL(Y(2) ) ) «L T « OftRS < DREAL ( Y < 1 ) ) ) ) Y ( I ) sY (2) 

.  EPS(l2>=Y(l)  ...  .  _ _ _ 

T  =  1 

2jmFJU18sQ _ 

K  s  1 

IF(T*EQal)GO  TO  230. _ _ _ 

WRITE(TOUT9?10)T 

210  FORMAT(»OSMPERTiSUH  ERMN I  CUT.  fAl  tT.  SOLUTIONS  FOUND*) 
I0F9UG  s  06 

_ IF  LGQ.  _s_i _ _ 

K  s  0 

220  K=k«1  __  .  _ ^ _ _ _ ^ _ 

|F(<aGTo2)G0  TO  60 

EP5(12)  s  Y(K)  _  _ 


COMPyjE.  incre.^ents 


230  EP5(6)  s  SALR6  ®  FPSil2)  ❖  SRET6 _ _ _ 

EPS(4)  s  SEPSA  FPS(12)  ♦  SZET4 

EPS(5)  =  SZFT5  ®  FPStl2).  f  SETA5_®_£PSt4i  ,1„5K^P3, _ 

EPS(17)  s  SALP17  »  FPS(5)  ^  S8ET17 

_ EPS(3)  ^  SALP3  EPS(17)  »  SRET3  ^  EPS(12)  ❖  SGAM3 _ 

EPS(2)  =  SALP?  «  FPS(17)  >  SRET2  «  FPS(5)  ^  SGAM2 
EPS  (19)  =  SALP19  »  EPS(5Ut_  SBET19  ®  .EPSa7X_t_5GA^il5„ 
EPS(ie)  s  SaLPIR  ^  FP5(5)  SBET10 

EPS(U)  =  SALPU  ^  EPS(12)  _ _  _  _ 

EPS(l)  s  0*00 

_EPS(7)  =  0*30 _ _ _ 

FPS{ft)  s  0*00 

FPS(9)  X  0.00  _  _  _ 

F.PSdO)  s  o*DO 

EPS(13)  =  O.DO  _ _ _ 

FPS(U)  s  0*D0 

WRITE  (IDF3UG920)JI  .1=1?24L?EP.S _ 

C  COMPUTE  PROPERTY  VALUES  .  „  _ 

no  240  I  ==  1,19 _ 

J  =  lEXTP(I) 

_ IF  ( a.  EQ^  0.)  GD-LQ-MO _ 

V(J»1)  =  V(J.2)  ^  FPS(I) 

240  CONTINIIF 
TEOrTCTO 

MOF  =  MOD  ”  M3F  _  _ 

pro  =  mdE  ®  nSQPT{TFO)  /  (Al  «  A?  ^  AF> 

GO  T0(?39,23R) ,1FLG9 
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MD  ®  MaCH(PD) 

ir  .NF.P)  .&Nn.  MN^TR(24r.gQ^A&fl_m^4Ll 

J16sJ16^ 1 


_  C4LU  PRINT _ 


J16SJ16-1 
WRITEtI0UT9242J 
242  F0PMAT(9*9») 


WRITE(I0ERUGi>32)  V 


C  SHALL  PEPTURBATIOH  RESIDUALS 


DO  250  I  s  1,19 

QiYl  a  _ : . . . . . 

Q(2>  s  CA2  ^  ERS(2)  ^  CB2  ^  EPSU?)  ^  CC2  ®  EAPE  ❖  CD2  ^  EPS<19) 

9(3)  «  r:63  ^  gPSiR)  ❖  CB3  ^  E&E  ❖  CC3  ^  EPSllTL  »  CD3  ^  rPS<12i 

Q(4)  =  CA4  ®  EP5<4)  ♦  CB4  «  EPS<17)  ^  CC4  «  E^Sdl) 

_Q(5)  ^  CA5  »  rPS(5)  ^  CR5  .■g-£P5j(-2) _ »  CCS  «  PPS(3)  »  CDS  »  FPS(4) 

#  CE5 

Q(6)  ^  CAS  ^  EPS  (6)  ^  CBft  ^  EPS  ( 4 )  _ _ _ _ 


0(7)  s  INFIIW 


0(9)  E  iNTijN 


Q  ( 1  Jl)_  s_.  I^F Jjy _ _ _ _ 

Q(1I)  s  Call  ^  FPSdU  «  ecu  ^  EPS(12) 

_  Qim  g  CA_12_  EPS(6)  ^  CC12  ^  PCTOl  ^  EP_S(12)  t  CD12  ^__PCLQ1^_^  ^ 
n  »  EPS(12)  2 


0(131 


0(14)  s 

IHFTN 

Qtl71_  » 

CA17  ^ 

EPS(171 

EPSUB) 

0(19)  e 

CalB  ^ 

EPS(IB) 

♦  CB10 

EPS(5) 

«  CC18 

Q-(_L91_g_ 

.££Sli^ 

»  CBISL 

FPS (IB) 

_±_C£J9  «  FPS<171 _ _ _ 

WRITE (YnE3UG9 13) (191^1920)^0 


exact  residuals 


DO  40  TsUl9 

..  40.  Q.(  I1e1^D7Q _ _ 

0(2)  gMnPEoAU»P^APE/nSQRT(TPr^A2 

0(3)  sHpr^  AF^OOKE^.  (  PP=PD.?A16X^A2 _ 

0(4) sMdpT^AWO^W^ (PP-PT®A1S) ^A2 

0 ( 5 ) s  R  P  T - RP  T 1 rJ  MDPF^HDF»MnPT)^nTDPV _ 

0(6)sHnD«HDPT»MnCT 

I  El  IFLfi?)  254999999255 _ _ 

254  Q(ll)=PT“(KDO'-Al7)^PN»A17^PO 

GO  TO  2B6  _ 

25R  0(U)=PT-0«5DO^(PN^PD) 

256  B(12)=ki;)0/PCT.Q„.._ _ _ 

B  ( 1  3)  stOGHI  ®MDTS0iJ^2 

_  ..  0(1?) =MDD»^a«9(13) ^( (PD^Q(12) )^»TQG"(PD»B<12) ) ^^GPIQGJ 
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GO  TO  (?5U25?)  ^IFLG9 

251_^(JLXL^PP-_PPJLI^P/RPT I _ _ _ _ _  ... .  _ _ _ _ _ 

GO  TO  ?53 

_ Z52  Q(17)”PP-RP^R^Ig/A2 _ ^ _ _ 

253  Q(19)sPP-0.500»<RPT^RPT1) 

_ _ am)  -TP-PP^QQR/PP^A2 _ _ 

GO  TO  39 

C  SUBSONIC  branch 

- - 

„ C-XQNP-UIEL^CQNSJ.ANTS  FOR  SOLUTION _ _ _ 

- - - - - - 

C  £aiiA.TJLQN  19  _ _ _ _ _ _ 

3  SAL019  =  -C919  /  CA19 

.____. _ S9ET19  g  ^.CC19  /  CA19 _ ^ _ 

C  EQUATION  2 

_ B(4)  =  ^KDO  /_CA2 _ _ _ _ 

SAL»2  a  (  CB2  ♦  CD2  ^  S9FT19  )  «  B(4) 

_ S9ET2  =  COe  ».,SALP19 . f. . B1.4J _ _ _ 

SGAN2  a  CC2  ^  EAPE  «  B<4) 

C  EQUATION  5 _ _ - _ 

SALP5  a  CBS  SALP2 

_ S9ET5  s  CBS  ^.  .SREIZ _ 

SGAM5  a  CBB  «  SGAM2  ❖  CEB 

C  EQUATION^  e _ 

SALPB  X  “CA0  /  CBB 

._C_XQUAILQ^JIB _ 

SALP18  a  -CA19  /  CB18 

_ BBEim^^CC  CBia _ 

C  EQUATION  5  CONTiNUEO 

_ 5KAP5  a  CA5  ^  SALP18  »  SRET5 _ 

B(5)  s  KDO  /  SKAP5 

_ S£P35._j8„-^ALP3_,l_filSi _ _ _ 

SZFT5  a  “  CCS  «  0(5) 

_ SI1A5_  a_j^X0^  _ 

SI0T5  a  »  (  CAB  ^  SBETIS  ♦  S6AM5  )  B(5) 

c  equation  10 _ 

SALPIO  a  o  CBIO  ^  SALP8  /  CAlO 

_  C  _E.QUlTl  0  N  „1 1 _ 

SALPll  a  »  CBll  /  CAll 

_ SBETM  a_^  CCIL  /  CAll _ 

C  EQUATION  17 

_ SEPS17  a  CA17  tCB17  ^  SEP_S5 _ 

0(6)  a„CB17  /  SEPS17 

_ SALPL7„a.  S2ET  5_  ^__a_L(kJ _ _ 

SBET17  a  SETA5  »  8(6) 

_ S6AM17  a  STQT5  8(6) _ 

c  equation  1 

_ B(7)  a  -KDO  /  CAl _ _ _ _ 

SALPl  a  CBl  »  9(7) 

_ SBETl  a  col  »  SALPIO  »  8(7) _ 

S6AM1  s  CCl  ^  EAE  «  0(7) 

C  EQUATION  3 _ ^ _ 

SEPS3  a  CA3  ❖  CC3  «  SALP17 

_ B(Q)  a  ^KDO  V  SEPS3  - 
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S6L03  s  CC3  ^  SRETU  «  0(8) 

S3ET3  s  _ _ _ 

SGAM3  s  (  CC3  SriAM17  ❖  CP3  ®  EAF  )  ^  R<8) 

C  E3UATI0N  4  _ _ 

SFP54  =  Cft4  ❖  CP4  «  (  S0FT17  ❖  SALP17  «  SAUP3) 

0(9)  s  «  l^DD  ./  .SEP54_„ _ _ _ _ 

SALP4  s  (  CP4  ^  SALP17  «  SBET3  ♦  CC4  SBETll  )  «  0(9) 

S3  ELI  4  CC4  ?  SaLPII  »  RJOA _ _ _ _ _ 

SRAM4  r  C34  ^  (  SaLP17  ^  S6AM3  «  S6AM17  )  ^  R<9) 

C  E3UATI0M  6  .J _ 

R(10)  =  “  C06  /  CA6 

SAL°6  s  SALP4  0(1OJ _ 

S0ET6  s  S3ET4  »  R(10) 

. .  ._5GA^.6_  =..f!r£:£../.XAiL _ _ _ 

SEPS6  =  S3AM4  »  B(10) 

-C  E.aUATt0N._7 _ 

S7ET7  =  CA7  ^  SRAM6  ♦  CC:7  «  SBETI  ^ 

..  . 8(11.1..=--  l.»U(l./„S2ETZ _ _ _ _ _ 

SALP7  s  (  CA7  ^  SALP6  ❖  CRT  «  < ' SRET3  ♦  SALP3  «  SALP4  )j  ®  Bill) 

_ S3ET7  g  (-CA7  ^  SRFT^  »  CR?  ^  SAIP3  ^  SBET4  ),  ^  B < UJ _ 

SGAM7  =  CC7  ^  SaLPI  < 11 ) 

_ SELPJlI-?-. XXAT_.^...SEP-S6^>  CRT  ^  $3AM3  ^  CC7  ^  SGAMl  xXB?.  ^ 

'B  SGAM4  )  »  R  (11)  ‘  . '  ‘  . 

-C  equation  6  CQVJTTNUjro _ _ 

SZFT6  s  SALP6  ^  SOAM6  ^  SALP7 

_ SE_TA6  s  S0FT6  »  SRAM6  ^  SRET7  .  . 

SI0T6  s  SSAM6  ^  S0AM7 

_ SM  S£P.S6L-X-Sj3LAM5_^.  SFXSI _ _ _ 

C  EQUATION  U 

_ BJIZ)  =  CC14_4_jSALP1Q _ 

SALPU  s  C014  ❖  8(12)  «  SGAM7 

_ S0FT14  5  0(121  »  SALP7 _ _ _ _ _ 

S(?AM14  g  9(12)  ^  SBET7 

_ SFPS14  g  0(121  ^  RFPS7 _ _ _ _ 

C  EQUATION  9 

_ B-LL3J--g_.C39._f  SALP8 _ ^ _ 

S7FT9  s  CA9  v  B(13)  -  SRaMT 

_ 5.5A_R9  5°Ba3J  /  SZET9  _ 

SALP9  s  SSAM9  ^  SaLPT 

S9FT9  g  SQAM9  ^  SRFT7 _ _ _ 

SGAM9sSGAM9^SEPS7 

C.  EQUATION  14  XaNU NUED _ _ _ _ 

8(14)  g  -  i,D0  /  CA14 

_ S2FTJL4_g  LJ5ALP14  j>_SALP9  -4_SBET  1 4  _ )  ^-  9  ( 1 4J _ _ _ _ _ 

SETA14  s  (  SALP14  S0ET9  ❖  SGARU  )  »  B  (14) 

510114  s  (  S  ALP.14  SGA.'ig  ♦.  SEP-S14_1._Z-0XL4J _ _ 

C  equation  6  CONTINUED 

. SLA^H^  =__S2£T^  ._E_ SJJ1T6_  ^  5aLP9 _ 

SMU6  g  SrTA6  «  SI0T5  ^  SBET9 

_ SMlS.-»_S^A&S_$_-Siai^f-Xj3AM5 _ 

C  EQUATION  7  CONTINUED 

SET  AT  .  g  SALPT.  »  SGAM7  »  SALP9 _ _ 

SIOT7  g  S9ET7  SOAM7  ^  S0ET9 

.  S  K  APT  s  SFPB7  »  SO  AMT  ^  RftAMQ  _ _ _ 

C  equation  \2 

_ SAL.P-IX_g-_3£0 1-  -  -  PJ1LX-SALP9_-  _  _  _  _  . 
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SRFT12  s  -POl  »  SRETQ 

„  S5AH12  .=_.tLPlli  .  ?_aGAMQ _ _ _ _ 

5A?  s  rnl?  «  S&LP12  »<»  2 

SB2  =  CAl2  »  SLAM&  >,_CB12 CC12  ^  SALP12  4  EailO  <»  CQ12- . ± 

a  SALP12  »  SGAMl? 

5C2  “  2.D0  ^  C912  «  SALP12  ^  SBETA? . . . . . 

SO?  S  rAl2  «  SMU6  4  CR12  »  SETftU  4  CC12  SRET12  ♦  2oD0  »  C012  « 

®  SRET12  «»_SQA'^12_  _ _ _  _ _ 

SF?  =  rnl2  »  SBFT12  2 

SP?  =  CAl?  5NU6  4  C«12  «  5.IQT14  _4  CC_L2 J»  5GAMJ2„Aj:ill£_!? _ 

a  SOAMl?  »»  ? 

C  F3UATI0M  13  _ _ 

SAL»13  s:  »  PNl  *  5ALP9 

SRFTia  s  PEOl  "  _ _ 

SGAV113  s  »  PNl«  SGAM9 

5A3=  Cr)l3  ®  5AUP13  2  __  _ _ _ 

SR3  =:  rAl3  ^  5FTA7  4  C813  »  SZFTU  4  CC13  «  'SALPU  ♦  2«00  CD13  » 

a  5ALP)3  »  SGAM13  _  „  _ _ _ _ 

SC3  =  2. DO  »  CD13  ^  SaLP13  ®  SRET13 

SD3.  r  CAi3  5.LQlX-j>  CBJA-g  SETAU  4  CCJl3-fi-  SBETia  t . Z^Q  »  CD1X.±. 

a  SR'^TlR  ®  SRAM13 

SE3  =  CDl3  »  S3ET13  2 _ _ _ _ ^ _ 

SF3  =  TAn  ®  5KAP7  4  CPU  ^  SIOTU  ♦  CCl3  «  SGAM13  »  €013  « 

a  5GAM13  »»  2  .  ..  _ 

TIsTOERUG 

C  A L  L‘_.DS I M  JL  ( s  A 2  9 ^2^SCijt3UZsStZxSEZxSja^&2A5Lli^^^  _ 

1 

C  — - “  _ _ _ 

C  SORT  ROOTS 

C - - -  .  _  _ 

1*0 

00  15,Ks1,.4  .  _ _ _ 

IF ( (DARS(3IMAS(X(K) ) ) .6T.U0“12) «0R« (DABS (Of MaG (Y (K) ) ) .GT* i «0“1 2) ) 

1  GO  TO  15  _  _ _ 

R(14)*n«EAL(X(<) )/PDl 

B(15)"0REAL(Y(K))/PNl  _ _ 

write (fOERUG® 69) K,X(K) 9Y{K),A14®P(14)®R(15) 

_69  FJ)PMAlt’  <g»®nji^_X=«®2ri3>5®o  Y*»,2El3.5,»  al4*»®F13.5® _ 

1  »  R(l4) ®R(15)s’ »2F13,5) 

IF( (0aRS(B(14>) o6T«nABS(Al4) ) .0R« (DARS(RJI5) ) .GT .DABS1AA4 ) 1) _ 

1  30  TO  IS 

1=141  _  _ 

JJ(I)=K 

EP5(12)=X(K)  _  _ 

EPS(13)*Y(K) 

15  COMTINije 

IP(T.Lr.l)GD  TO  340 

K  =  T  ^  _ 

P(  U)  =y  {J.J<  1  )  ) 

P(15)=Y{JJ{1) )  _  _ 

DO  320  !=?,< 

j*jj(n 

IF(3ABS(nRFAL(X(J) ) ) .GT.nARS(R(14) ) )G0  TO  300 
I1  =  J 

P(14)=y (j) 

300  IP'{0A8S(nREAL(Y(vl)  )  )  eGT«nAWS(P(lS)  )  )GO  T0_3_20 _ 
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I2s5j 

. . _BXli)s_YiJJ _ _ _ _ _ 

320  CONTINUE 

_  _IF.ai«biE«L2)jm„T0.340 _ ^ _ 

1=^1 

_ ERSXIZ)  sXiXlJ _ : _ ^ _ _ 

EPS(13)sY(I?) 

_ 3Ail_XELSa=D _ _ _ _ _ _ 

Krl 

_ ^XFXlaEO^llGQ  TO  JJ _ _ _ 

WRITE(T0UT«16) I 

lDF3UGs06 

_ lELM^ _ _ • 

K  =  0 

_ LB-_KsiO:X _ _ _ 

IF{<,GTo4)60  TO  60 

_  .  .£R5X12)=:XTK) _ _ _ 

EPS(13)s:Y(K) 


COMPUTE  increments 


17  EPS(6)  s  5LAM5  »  EPS(12)  ♦  SMU6  «  EPS(13)  SNU6 

_  -E.PSX1J  .s.  S£147_4.EP_SXL2I_^S10IX_J»_EPS(  13)  »  SKAP7  _ 

EPS(9)  s  SALP9  FPS(12)  4.  S0ET9  ^  EPS(13)  ♦  S6AM9 

_ FPS(14i  "  57FTl4_gL_FPS(l?^  »  SETa14  ^  rPS(13l  4>  STOT14 _ 

EPS(4)  s  5ALP4  FPS(12)  ❖  SBET4  EPS(13)  ♦  S6AM4 

.  _  £RS331-  s  SAt  p-i  ^  FPS(4)  ^  SRET3  ®  FPSd?)  »  SfiftM3 _ 

EPS(l)  =  SALPl  ^  EPS(9)  ❖  S8ET1  ^  £PS(7)  ^  SGAMl 

. FPS117r  =  SALP17_*»_FPS(’^^  »  SfiFTl?  ^  FPS(4)  ♦  SfiAMIT _ 

£PS(U)  =  SALPll  £PS(13)  4  SBETll  ^  EPS(12) 

_ FPSdOi  5  SALPin  FPS(7^ _ _ _ ^ _ 

EPSdB)  s  SEPS5  ^  FPS(17)  ❖  SZFT5  «  £PS(3)  ❖  SETA5  ^  EPS(4)  ❖ 

_  ?9  5K1T5 _ _ 

EPS(5)  St  SALP18  EPS(18)  ❖  SBETlB 

.  XPS.(0)  ^3AL£S  X-EPSJL2J _ _ 

£PS(2)  s  SALP2  «  FPS(17)  ❖  S8ET2  ^  EPS(18)  ❖  S6AM2 

_ f^PS  (.m  ^  JSALP l_9_Jg_XPSJLl  gLL_  ^  ^Sa£Tl^__E P_SJLJm _ 

WRITE (TOE BUG 9 20) (T9T^1»24) ^EPS 

20  F0P_MAT(3(/9  9,e(5KjJ_EPS(g9l2d)  ^94K  )1jl11_/ »  «^BE16«fll) _ 


COMPUTE  SMaI L  PERTURBATION  PROPERTY  VALUES 


DO.  30  _ _ 

25  J-TFXTP<I) 

IF(  JeEOoO)GO  TO  30  „  . . . . 

v(j9i)=v( j9?)^EPS{n 

30  CONTINUE  _ 

GO  TO(34l9342) 9TFLG9 

341  PPT  .=  PP-T1„5-  (RPT  /  RPTli  G 
TOT  =  PPf  ^  OOR  /  RPT  «  A? 

GO  TO  343 

342  TOTsTCTO 

PPT  =  RPT«R»TPT/A_e 

343  PCTO  =  PEO 
TCTO  =  TEO 
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REO  ^  PEO  ^  OOR  /  TEO  ®  6? 

_ J^IJL^„R£a _ _ ^ _ _ _ _ 

ACTO  =  nS3RT(GR  ^  TCTO) 

_ M.(1CI0_ ,s_  RETO  ^  ACTO  ^  CTft _ _ _ 

MO  s  MptH(PO) 

_  MNJ  ^s_Mi3LCHi&fyi _ _ 

IF(  (INSTR(23)  .MEo?>  oANDWTNSTR(24)  ^EQ«0)  )60  TO  29 

_ dlhB-dl  6±i _ L _ _ _ : _ ; _ _ _ _ _ _ _ _ _ 

CALL'  PRTNT 

.  Jie>=Jl6-L _ 

WRITE(T0UT929) 

-  29.  F  OR  mat  ( _ 

20  TF{ (IFLG8,F0.0) •AND, ( IOERUG,FO,03) ) RETURN 

_ WRITE  (IDE3Ufil32)  V _ _ 

3?  FORMATfiOSMALU  perturbation  PROPERT IES » » 1 3 ( / •  «»0El6,R)) 

C  SMALL  perturbation  RESIDUALS 

D  o  '  3  5  T=  U  1 9 

_ 35^  Qa)^I.Q70 _ _ _ 

0(1)  =  CAl  ^  FPS<n  ❖  C91  «  EPS<9)  ♦  CCl  ®  EAE  >  CDl  »  EPS(IO) 

_  Q(2)  =  XA?  ^  FPS<2)  »  CR2  ^  EPS(17)  »  CC2  ^  FAPE  4  CD2  ^  EP5JJL91 

0(3)  s  CA3  «  EPS(3)  »  CR3  ^  EAF  ^  CC3  ^  EPS(17)  ❖  CD3  »  EPS(12) 

_ 0(4)  s  CA4  ^  FPS(4)  ^  CR4  ^  EPS(l7)  »  CC4  ^  EPS (1 1) _ 

0(5)  =  CA5  ^  ERS(5)  ^  CBS  ^  EPS(2)  ❖  CCS  ^  EPS(3)  ❖  C05  ®  EPS(4)  ❖ 

_ 3^JC£5 _ : _ _ 

Q(A)  s  CA6  «  EP5(6)  ❖  C9A  «  EPS(4)  ♦  CC6  ®  EPS(7) 

_ &S.t 6J_-»  XB7  CC7  ^  EPS(I)  _ 

0(9)  =  CA9  FPS(7)  ❖  C09  ^  EPS(8) 

_ XA9 . t  FPS(9I_  »  X0Q  ^  EPS(6) _ _ 

0(10)  s  CAlO  ^  EPS(IO)  ♦  CBIO  «  EPS(8) 

_ QJllJ  sCAll  ^  EPSni)  ^  CRll  ^  EPSdll  »  CCll  ^  FPS(12) _ _ 

B(15)  s  PFOl  »  EP5(12)  -  POl  «  EPS(9) 

_ X_aXl_  a=_X4lE-J»  FP5(6)  »  rR^L2  «  EPS  ( lAl  ^  CCA?  »  RMS)  »  rD12  » 

1  R(15)  ^#2 

B(16)  =  PFQl  »  EPS(13)  ^  PNl  »  EPS(9) _ 

0(13)  s  Ca13  »  EPS(7)  ^  CRl3  «  EPS(14)  ^  CC13  ®  B(16)  ❖  C013  ® 

_ Q  9(16)  2 _ : _ _ 

0(14)  s  CA14  ^  EPS(14)  ❖  CB14  ^  FPS(9)  ❖  CC14  »  EPS(lO) 

_ Q.(i7)_  s  CAl 7  ^  £PS(m  »  CR17  ^  EPS(18) _ 

0(10)  s  CAlR  ^  EPSdB)  ♦  CR18  ^  EPS(5)  4  CC10 

0(19)  5  CA19  ^  FPS(19)  4  CR19  ^  EPS(l8)  4  CC19  ^  EPS(17) _ 

WRITE(TDERUG«13) (!9l=l»20) »Q 

_ 11.X0R MAIJ  ^ORESYDUALS  FROM  SMALL  P£RTURB_ATl_ON_EOU_AJlQNSJ  4  _  _ _ _ 

1  2(/’  •»lO(6Xd2fSX)),2(/9  99lOEl3o5)) 

"  c  EXACT  RESfnUALS 

»  r. »  _ _ 

DO  140  |=1»19 

UP  QdJ  sA^lQ _ 

Od  )  =MnE"al»PE0<»AE/DS(5RT(TE0l«^A2 

Q(2)gMnPE4Al»PP»APE/0SQRT(TPT»A2 _ 

6(3)  sMDF4&f^06kF«^(PP-PD)»A2 

_ 01 3J. = Mn F.4  aF«00KF»  (PP^PD»  Al6)^a2 _ 

0(4)  =MnPT4AW0'<Wn<PP"RT«Ai5)  ^A2 

_ 0 (S) sRPT-RPTl^ (MDPE4MDF4MDPTi^DT0PV _ 
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Q(6)sMnD4'H0PT“MnCT 

. *  _ i _ 

8(9)31. d0^6M102«MCT 

. . ,a.(  1  Di  =ji  ^iH)»  TtM  1  azmcTf.^ _ _ 

0(8)sMncT-MCT»MDCTC«B(9)«^MGP0GM 

_ _BJX1.L.-B  LLO  IZRl  9J  fj»2 _ _ _ _ _ _ 

Q(9)=PFO-PC«»0(ll)»<»6OGMl 

..  _ QCm3t£jl!^i:B3.(JLLJ _ ^ _ 

IF ( IFLG?) 144» 9999^145 

_ UA^Ril  U = RI  -  (1.D0”A17)^PN«>-AI7»PD _ 

GO  TO  146 

_ 145  ailU=PT“JK5D0_«LlPJJ±PDJ _ 

146  8(12)=1.00/PEO 

_ B(13)=TQG^1«MOTS0^^2 _ _ _ ^ _ 

0(  l?)3MnD»<^2-B(13)«(  (P0<»R(1?)  )  «»»T0G»  ( PO»B  <  1 2 )  )«»GP10G) 

_  Q(13)=MDCT»»2-R(13)<*(  (PKj»R{12)  )»»TOG-(PN^B  (  IBJ  I  »#GP1_(11^ _ 

Q{14)sMr)TSO-SGOR^PEO^TSA/nSQRT(TEO)^A2 

_ an  TOf  14lal4?l  f  TFt  G9 _ _ ^ _ 

141  0(17)  sPP»PPTl»(RP/RPTl) 

_ GO  TQ  143 _ 

14?  Q( 17) =PP»9P»R©TP/a? 

_ 143  Q(ia)=PP«»ft^5Qj)»fRPT»RPTn _ _ 

0(  19)  3TP'’PP*00R/RP^A2 

C  OJTPUT 

._-X„  CONVERT  RESIPUALS  TO  PERCENTAGES  _  _  „  _ 

_ 39._QQ„A9„  I3  IjlX9l _ _ _ _ _ 

JsTEXTPd) 

_ I£(Ja£R,.QLG,Q-.T.Q.....49 _ 

IF(T.E(5.6)G0  TO  45 

_ _ LEXL^a^JBII  „TQ  4.1 _ 

IF(!«E0.8)G0  TO  42 

_  _ TF(T*EQ,1?)GQ  TO  43 _ 

IF(KEO«i3)G0  TO  42 

_ GO  TO  4  6  _ ; _ 

41  JslO 

,  60  TO  46 _ _ _ _ : _ 

4?  J=l? 

_ 60  JO  A6 _ 

43  J  =  9 

_ _ _ aO...,TB  -A6 . .  . 

45  j=n 

46  I F  t  V  t J  9  2 ) « NE^  0  J3D ) GO  TO  47 _ 

Q(T)=TNFIN' 

. 60  TO  49 _ 

47  Q(T)s0(T)®U02/V(Jj2> 

_ 4 9. .  C ONTINtJF _ 

WRlTE(T0EBUG*2n  (Tf I=l*20) *0 

_  -  21  FORMAT  (  tORESlBUALS  F_RQM_  FXACT  EQUATTQNSjji _ 

1  2(/»  9 f 10 (6X,I2»5X) ) ;2(/*  »»10E13.5)) 

_ IFdFLGfl.P’Q.OlGQ  TQ  60 _ 

IF<  TFLG?)  22099999dR 

_ -6iLB3LIE.(  !  DEBUG.  31)  ( 1  d ^  1  ^  1  n  1  .  A  W  I  s !  ^  30 )  , B _ 
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31  FORMAT!  »’0a~flRRAY«/»  »  a  0  ( 6X  ^  1 2 » 5X )  /  •”«  9 1 OE 1  3  o  5/ »  0  » « « R  ARRAY*  * 

_ 131  )  93  U»-  iilOEia^lL  _ _ _ _  _ _ 

WRITE(TDE^Ur,,10>  CAW  CRW  CCW  CDW  CA2f>  CC2^  C929 

1  CA39  CB39  CCa9  Cn3.9.  CA4J-CB4  9  CC49  CA59  CRSa  C.CSa  CUS^i _ 

?  CE59  rA6f  CR6»  rC69  CA7?  CB??  CC??  CA89  CBR9  CAR^  CBR? 

4  Cri39r^l3*CAl49CR149CCl49CAl79CRl79CAl89CB189CClB9CAl99 
_ 5-XlBl9rCClR- _ _ _ _ _ _ _ _ _ _ 

10  FORMAT  (  •  15MPFRT*/»  W6Ws»)/«0W7XWCa1W13KWCB1W13X9«CC1W 

1  13X»  »cDi»/* _ » 9AEi6^s^n*  97Xi.gCA2wi3.X9  vcB2jjdi3X wrrawi.iKt _ 

?  *r3?*/*  W4F16.8/»0W7XWCA3W13X«?CB3»913XWCC3W13X9»C03* 

3  /*  •  .4F16.B/«Q»  97X9  *CA4»  Ql3Xa  «Cg4J  9  1  3Xa  9XC14JV  »  W  3F 1  Q  W _ 

4  7X,iCA5*9l3X9*CB5»9l3X99rf:5  W  1  3X  9 » COS »  9 1 3X  9  » CE5 » /  »  W5Fl6a8 

..  3,y  «0Vf7X^.lCA6j^l3X,  »CB6Wl3Xt'!XC6V7  ■W3£JAiJa.6iiLW7X9»CA7Wl3X« _ 

0  »r37Wl3X»»CC7*/9  W3E16,B/«0W7X9*CA8«  9 13X9  eCRfl®/’  W2El6*e 
7  / • 0  W  7  X  W  C  A9  W13 X « • CB9»/»  » 9 ?F 1 6 . 8/ » 0 W 6X f » C A 1 0 W 1 ?X 9 » CRl 0 « / >  <9 

R  2F  16.R/»0»96X9«CAn»9nX9«Cail»9l2X9’CCll»/*  ®93F16«e/90W 

9  6 X  9  *  C  A 1 2  •  9 1 2 X » » CRI2  Vt  L2X 9  ^^CClZ.y  9  lZAi±ailZ  \  Ll . W4E 16 9  8/  VQ  .a^Xjt _ 

A  ♦CAl3*9i?X9iCRl3»9l2X9»rcl3’9l2X9»CD139/9  « 9 4E 1 6 « 8/ « 0 W 6X 9 

_ a_-«CAl49slaX9  !  CB1.4;_il2j(  9  ^  fC  1 4!./  ^  ^  9  3£l^  8/  6X  9  ^  C  A 1  7  W  1  2X  t  _ 

C  ’CRU*/’  •9?F15«R/«0»96X9’CA18»9l?X9eCRl8«9l?X9«CC18»/9  W 

D  3E169R/»0«96XftCAl  9.«  1 12X  9  >rB19»  9 12X9  ^CClR^ /»_Ljl3F16.3) _ 

WRlTEdOERUGfll)  SALPW  SRETW  Sr7AMl9  SALR29  SRET29  S8AM29  SALP3 

1  9  5BE739  S3AH39  SEP53 f_  SALP4 j._SBE:l4f_SG4M4 a,, 5EPS4 i-iALP5Lg--SaET5 _ 

2  9  5riAM59  SFP559  SZETSa  5FTa59  SIOTSa  SKAPSa  SALP69  S3ET6t  S6AM6 

3  9  5EPS6  9  SZFT5,  SETAfef^BlQX^  SKAP69,BLAM4A„SMii£LJL  5NiJfe9  5ALP7 

4  9  5RET79  SRAM79  5EPS79  SZET79  $ETa79  SI0T79  SKAP79  SALPSt  SALP9 

5  9  53ET99  SGAM99  SZET995ALPI09SALPU9.SqFTU  9SALPl2ftSBETl?9SrtAMl  2 _ 

(S  9SALPI  395RFTl39SRAM1395ALP14tSBFn49SGAMl49SFPSl49SZETl49SETA14 

7  95I0T1 495ALP179SRFTl795GAM1795FPS179SALPlR9SaFTlR95ALPl99SBgLTl9  _ 

1 1  format ( • 1 • 96X9  »SALR1 • 9 1 1X9  «S0ET1 t  9 1 1 X 9 » SGAM I « / »  « 9 3F 1 6 9 8/ « 0  »  96X 9 
I  »5ALP?»  911X9  ^SqET2»9l  1X9  >$GAM2>/«  ^  iBE  1 6  ^B/yO  W6X  9 » SALP3  W  1 1 X  9 
?  •5RET3«9nX9»5GAM3’9llX9»5FPS3«/»  W  4E 1 6 , 0/ «  0  «  9  6X  9 « S  ALP4  ’  9 1 1 X  9 

3  'SRETA*  9IIX9  •5GAM4V9  _ IIX9  *SFP54t/»  »  9  4F 1 6^8/ <0  Va^^Xt 

4  •SALP5»9nX9«SRET5»9llX,  •  SR AM5 •  9  11  X 9  •  SEPSS « 9 1 1  X 9  « SZE T5 » a  11  X 9 

5  <SETA5»  9IIX9  »ST0T5»  9IIX9  9SKAP5»/>  W 8F 1 6  a  8/ 9 0  a  9 6X 9  > S ALP6 W 11 X 9 

6  «SRET5t9llX9«SRA'^6WUX9  9SFPS69  9llX9fSZET6WllX9  9SETA6?fllX9 

7  »ST0T8»  9 1 1 X9  »SKAR6*/*  a  0 RE 1 6 , 8/ » 0 « 9 6X 9 t SLAM8 W 1 1 X 9 » SHU6  WIIX9 
R  asvJU6V»  W3c'16«R/*0«95X9’SALP7»9llX9«SRET7WllX9»SGAM7»9nX9 

9  «SEPS7  9  a  11X9  aS7ET7«  a  1 1 X f  a SFTa 7 W 1 1 X a  a  5 T 0T7 a  9 1 1 X 9 » SK A R7 < / a  *9 _ 

A  3F16efl/«na9  5X9»SaLP8’/a  » 9 F 1 6 « R/ » 0 ’ 9 6X 9  a S ALP9 « a  1 1 X  a  a SRET9 a  9 
P  1  1  X  9  a  SG AM9  a  9 1 1 X  a  a  SZFTPa/a  a  ^ 4E 1 8 . R/ a Q a  ^5X 9  aSALPlQa/ 

r  a  *9  Fl6.R/a 0* 98X9 ’SaLPII a  9 10X9 *5RETU a/’  • a 2F 16 « 8/ » 0 » 95X 9 » S ALP  1 2 

0  a  alOXo  »$RFT12a  glQX9asGAMl2a/a  a , 3EI6 . 8/ a  0 »  9 5X 9  a S ALP  1 3 »  9 1 OXt _ 

F  *SRET13a9lOX9aSGAM13a/i  a  9 3E 1 6 « R/ » 0 ’ 9 5X 9  a S ALP  1 4  a , 1 0 X 9  a SBET 14 « 9 

F  10X9  aSGAviU*  9IOX9  aSFPSUa  alOX9aSZ£Tl4«  9IOX9  a  SF  T  A 14  a  9 1 0  X  9  a  SLOT  1 4  a _ 

G  /•  a,7Fl«,.R/.oa,sX9  »SALP)7  9  alOX9  »SRETl7a  9IOX9  «  SG  AM  1  7  a  9  1  OX  9 

H  aSFP517a/*  a  ,  4(:;  1  ^  B/ ;  0  a  ,  RX  9  a^fiLPlB®  9  I  OX  9  a  SRFT  1 8  a  /  a  a  ^Pf16,R/ _ 

I  »0»  95X9  aSALPlR*  9lOX9«SRFTl9»/a  « ,3^1698  ) 

WRITE (TnERUR9 1 2) SA29SB29Sr29Sn29SF29SF29SA39SQ39SC395339SE39SF3 
1  ♦FAE9FAPF9FAF 

1?  FORMAT  (  a  I  •  ,  rx  ,  asA?*  9  13X9  a  SR?*  9  13X9  »SC?a  9  IBXf  a^pa  9_13Xj?J^J_? _ 

1  nX9*'^F?a/a  a,f>EJB.R/a0a,7X9aSA3a9l3X  9  a5B3a  ,13X9  »SC3«  913X9 

2  a  S03  a  9 1 3X  9  a  5F  3  a  » 1 3X  9  a  5F3  a / »  a  ,  l 8^8/ t Q a t 7X 9 » FAE a  9 1?X9  «FAPE»  9 _ 

3  1.3X9  a  ^AF  a 

4  /a  a  ,flFl  f)*P) 

TF ( TFLRrto“Q. 1 ) STOP 
ret JRN 
9999  STO^ 

E^iO 
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“  OStMUL  '  DATE  =  75157  ll/5«/40 

sup^outtnc-  ds t mul (A?«R2,r?»n?*Fa » r? t a37b3 * cT» diTtT* f3 * i debug ♦xx,v) 

rMPLJCTT  =^EAL«>B(A»H-»DrZ} _ 

C0MPLEX«15  X(?*?*4)*Y(4) •SIGMA •UP5LON*PHl •PSI »OMFGA • ZERO* A1 fBl*Cl « 

"Yl.  Y2»Y3*Y4.0^iE»P  (2*2.4,  aj.Cl^FINitmAi _ 

COMPLEX* 14  STSMaI .UPSLNl .PHT 1 .PSIl * OMEGA  1 

DIMENSION  III  (4)  *  JJJ{4)  _  _ _ _ _ 

DATA  ZrP0/(0«f)0*0.nft) /♦OMF/(l •nO.OoDO) /*CINFIN/( 1 oOTO.l ,070)  / 

c  compute  quartic  coefficients 


ALPHI=a2*E3-A3*f2 

9ETAl  =  A2<»03-A3<^D2  _ _  _ 

GAMMIsa?*P3”A3<»F2 

.  ,  ALPHI1=A3?BZ.»a2*B3 _ _ 

9ETAI IsA3»CP-A2*C3 

0ELTII=ALPHI*9ETAll.-, .  .  ,  _  _ _ _ 

FPSLn  =  ALPHI*ALPHTI^RFTAT*RFTAlI 

ZETAlI=PETAT*ALPHIItGAMHT»9ETAII  _  _ 

ETAIIsGaMMI»ALPHI1 

BI.l_S(i=BETAlI**Z _ _ _ 

aRIT  =  AlPHlI*Rc-TAlT 

AIISQ  =  ALPHII««»2  _ _ _ J _ 

SIGMA=7FR0 

UP5L0N=ZER0  _  _ _ _ 

PRIsZERO 

PSl-ZERQ _ _ 

OMF3A=7fRO 

DO  3  1  =  1*2  _  _ _ 

DO  7  Jsl*? 

DO  5  K=l>4  - .  _ _ 

6  X ( I • J*K) sCINFIN 

7  CONTINUE .  .  _ 

n  continue 

SIGMA=  a2  *  ALPHI**2  ♦  C2  *  DELTII  _A  E2.  *^9X150 _ 

UPSLON  =  *  A?  *  ALPmt  *  PFTAI  ❖  R2  *  DELTII  4  r2  ^  FPSLII  ♦ 

*  200  *  E2*ARn  ♦  0?  *  BIISQ.  _  _ _  .  .  _ 

PHT  =  a2  *  (  9ETAI  «*  2  ♦  ?oOO  *  ALPHI  *  GAMMI  )  ❖  R2  *  EPSLIT  « 

*  C?  ®  ZETaII  ♦  P2  at  ISO  E2_jgL_gilSQ_^_2O0  *_Q2_jE_aB1I _ 

P5T  =  ?.D0  *  3FTAT  *  GAMMt  #a2  ❖  R2  *  ZFTAlI  ♦  C2  *  EIATT  ♦ 

*  ?«Dn  *  F2  *  AHII  ♦  D2  *  AIISO  . .  _  , 

OMEGA  =  A2  *  GAMMI  2  ♦  R?  ETATI  ♦  F?  «  ATTSQ 

STGMAIsSIGMa  _ _ _ _ _ 

UPSLN1=UPSL0N 

P5n=psi  . .  ....  _ _ _ _ 

PHII^PmT 

OMFGAlrOM^GA  . 

IE(iOFpug.F0.03)GD  to  9 

C» - - - - -  _  _  . . 

C  PRINT  COFEC-TCTFNTS 

C - - -  .  .  .  _  _ 

WRlTFdOtRUG.l  )  A?*R?*r?.n?*F2.F2*A3*03.C3»O3*F3*F3*  ALPHIOFTaT  9 
-  GAMMI •aU^HIT .BETaTI .DELTII •FPSLTT .ZETAII »ETATT*PnSQ9ARTI *AIISP 
1  F0RMAT( tnSIMJL»/»  •.4<»=»)/*0»»7X»*A?«.14A,»R?*,l4Xf *C2**i4X9 

1  *n?»  9l4X,  »F2’  *  14X9  •F2*/*  •  96E160/»0«  97X9  VA  3 »  9 1 4X  9  •  R3  •  9  1  4  X  ♦  «XJ.* 

2  14X9 *n3» 9 14X9 ’Fa* 9 14X9 tEG*/*  * 94E16.R/*0* 96X9 •ALPHI • 9IIX9 

3  •  Rs-T  at  *  9  n  X  9  •  GAMMI  #  9IOX  9  •  Al  PHI  I  *  •  1  OX  9  •BE.T_A_IT.»  *10X^10 EtI I  LL*„__ 
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OSIMUL  DATE  =  75157  11/58/40 

4  1  0 )( *  ♦  F  P  S  UI Y  •  7  •  “  •  ,  7  E 1 6 « s  V^  O*  ^  5  X  9  •  Z  F  T  A 1 1  •  » 11 X  7  T  A  T  T  11  X  9 

.5.  •  ♦U  X^iABmxUX.jLlAlIJQ.^./.l  _ _ _ 

WPTTE  (Tr>E8Ur7»a)Sir,MAU)PSl  0N,PHIi»P5!  90MFriA9ZERO 

2  FOPMAT  ( »  0  •  ?  1  3X  9  « S TfiM A  1. 9  ?7X  9  HiPSLON » 9  2BX  9  >  PHI «  ♦  29X  9 » PHT  »  / »  » 9 _ 

18n5.8/*0»  9  14X9  •OMEGA*  927X9  «'ZERO*/»  •94EI69B) 


FIND  ROOTS  to"  OUAPTtT 


9  Ns4 . 

I F  (  ORE  aL  (.5 mMA 1 9 Nf  , 0_. [lO }  GO  TO  40 _ 

N  =  3 

I F  ( ORE «lL  (.0P5L.0N )  9  N£  *  0 . 001 60...Tr)  _ao _ 

Ns? 

_ 1  F(OREALLPHt)  .NF,0,D0_)GQ  iQ^  aO _ _ _ 

LINEAR 

N  =  1  _  _  ..  _ _ _ _ _ _ 

10  OMFSAsOMEGA/PSI 

PSIfONF  .  _ _ 

CALL!  QaNDC (N9OMF6A9ZFRO97FRO9ZFRO9ZFRO9YI 9Y29Y39Y4> 

_ (2Q„ia^s _ 

OJAORATTC 

?0  PST=PST/PHI  . . .  . . . . . 

OMFGAsOMEGA/PHI 

PHIsONF  _  __  _ 

CAL  Li  OANDCTNf  RSI  9r)MEGA9ZFR0  9ZFR09Yl  9Y?9Y3  9Y4) 

GO  JO  45  .  _ _ 

C'JRIC 

30  PHIsPHI/URSLON  . . .  ..  _ 

PSIsPSl/URSLON 

OMFGA=OMEGA/UPSLON  ..  _ _  _ _ _ _ 

UPSL0N=0NF' 

C  ALL!  Q.a  no  C.(  N  9  PH  1 9  PS  I  f  omega  j  ZERO  f  Y  L9  Y2  9  Y3  9  Y4 ) _ 

GO  TO  45 

QUARTIC  _  _ _  _ 

40  URSLON=UPSLON/STGMA 

PHI=PHT/5IGMa  _ _  _  _ 

PSJsPST/SIGMA 

_OMFGA=OMF3A./S.IGMa _ _ _ _ 

SIGMAsONE 

CALL’  OaNDC  (N9UPSLON9.PHI  9PSJ_9PMEGA9Y1aY2  9_Y3_9_Y4 _ 

find  aL L*  X  VALUES  FOR  EACH  Y  ROOT _ 


._45_XXL>.  =  Y 1 _ _ _ 

Y(2)=Y? 

Y(3)-Y3  .  _  ^  . .  . . . .  . . . 

Y(4)sY4 

00  100  1  =  1  94  _ _ _ _ 

if(i«gt.N)go  to  loo 

QJ.=  -9  5_»lB29>C2j>Y  ( 1 )  )  /_A2  _ _ _ _ 

C1=COSORT  (B1»»2-  (02<*Y  ( I )  ♦FP*»Y  ( t )  »«24F2)  /A2) 

X(l9l9l)=3l4Cl  .  . .  „  _ 

X(?9l9T)=31-Cl 

01=».5**<83^£3»Ytl)  1/A3 _  — _ 

C1  =  C0SQRT  (n3»Y  n  )  ♦FS^Y  (  T  )  ^^2  +  F3)  /A3) 

« a  9  j )  =3 1±  c  1  . .  . 


128 


AEDC-TR-76-39 


OSTMiil 


OftTE  5  7S1S7  "  *'  U/^^/40 


K(?9?9T)s:^1^C1 

100  CONTINUE  . .  ...  _ _ 

C  PRINT  poors  TO  OUARTir  AND  CONICS  _  _ 

WRITE<TOERUO«?)5IGNA^UP5LON,PHl9PSl90MEGA9ZEPO  .  .  _ 

WRT  TE  <  TOERUOf  3)  Y»  (  T  9  T  =  1  9?)  •)( 

3  FOP'^AT  ( ’O*  f  15X9  •¥!•  930X9  tY2»  00X9  ‘YJ®  »Y4«/*  » 9  BE  16  &a/J.£L!  j _ 

1  ?  ( »  I  *  9?^  ( «-•  )  9  •tOilAT  JON9  9  T?927  (  •«»)  )  9  9  -  I  «/«  » 9?(  »  M  9  1 1  ( )  9 

Z  »P0SITIV^»  9II  (  •-«)  9 «  M  9l  1  ( »“»  )  9«NFGATIVF«  9l?(  |  9 )  . . 

3/90X  ROOTS  RASEO  ON  Yl*/*  99aF16.R/»0X  ROOTS  BASED  ON  Y?®/®  «*B 
4  ElSsB/'OX  roots  rased  ON  Y3*/*  NBEl^eS/^OX  ROOTS  RASED  0N„Y4.»/. 
6  •  *VRF16.P) 

r  CRf^rK  all  x  and  y  values  iN  ORTOTNAU  system  of 'conics 
DO  130  L=l92 

DO  120  1  =  1  94  _  _ 

DO  114  J=l9? 

DO  115  K  =  1  92  .  .  . .  .  _ 

IF (ORFaL ( Y(T) ) «GT.l .DPRinO  TO  115 

GO  T0(10e9ll0)  9L  .  _  .  _ 

lOR  R(vl9K9T9l)=A2»X(j9K9T)^»?^B?»X(j9>C9T)9r2»X(J,K9l)«>Y(I)9n?AY(l)^ 

1  E?^Y{T)»»2«F2  . .  . . 

GO  TO  115 

no  R(J9KtT92)=A3AX<J9K9l)^«2»B3»X<  J9K9l)»C3<*X(j9K9n»Y(l)9Q3»Y(I)4» 

1  F3®Y ( T ) «»2*F3 

IIS  continue  _ _ 

114  CONTINUF 

120  continue  ,  _ _ 

130  CONTINiir 

WRITE(!DEBUG94)R . . . v  _  _  _  _ 

4  FOPMAT(*ORF.STOUaL  APPAYi*4(/»  »9BF16«@)) 

C  SORT  OUT  EXTPaNP-OUS  RDPiTS 

135  1=0  . 

DO  160  J=l94 _ _  _ _ 

no  180  T=l9? 

DO  140  K=l?2  _  . . . 

TF(CDARS(R(T9l9j9K)  )  .LT.KD-IOIGO  TO  l40 

GO  TO  1  BO  . . . . . . . . . 

140  CONTINUE 

L=L*i  . . .  ,  . . . 

IF(L9LFo4)G0  TO  ISO 
WRlTE(I0Ur9l45) 

145  format f iOOSTMUL:  MORE  THAN  FOUR  ROOTS  FOUNOM 
STOP 

150  ITT (L)=T 

vJJJ(L)=J  _ _  _  ...  . . . 

ISO  continue 

160  continue  .  _  _ 

LLL=L 

00  200  L  =  1  94  .  _ _ _  _  _ 

XX  (L)  =r  TNtriM 

if(l«gt.uul)go  to  1.90  .  ,  ..  _  _ _ _ _ 

XX  (Li)=X  ( ITT  (L)  9I  9  J^iJ(L)  ) 

GO  TO  ?00  _  _ _  _  ' _ _ 

190  Y{L)=C?NFTN 

200  CONTINUE  ..  . .  . . . . . 

WRTTE(TDERUG9??0)XX9Y  . . . 

220  FOPMATIUSORTEO  ROOTS?  XX/Y«92(/»  •f8EL6^6)l  _ _ _ _ 

WRITE ( TOE  RUG  9 240) ?  T 1 9 JJJ 

240  FOPMaT(*OiII  aND  JJJ  VALUES. 9 » ILL?.*  9.4 
1  •  JJJ=»  9  412) 

RFT JRN 
END 
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OANnc  . DATE  =  75iS7’’" 

SUp:?OUTTN?  aAVi5nNTR%F959F9Xr9X2»x:^»X4) 

TMPtiCTT  C0MPLC^«l6jA”GjDTl) . . .  . . 

C0MPLEX«1«.I 

DATA  I/(0«D09l,n0)/9CINFIN/(i,n709l.D70)/ 

ro  T0(:^n9?09i09's)  •n 

c  QJAPTIC  _  .  - 

5  A=(  (4ono®C«P“(D^^?®F)-”0«^?)/2»nO) 

Al=(C®(P®D-»4iiDQ^Eiy69D01  ..  ..  . . . 

A?s-( <r»»3) /27.no> 

AsA4-A1^A2  _ _ 

R9=CD50«T ( ( A«»?> ♦ ( (P®0»4.D0®F- ( (re«?) /3 *00 )) ) /? 7 • DO ) 
A  =  -A 

CALL'  ClIRRT  (  A^RR^R) 

PSTAR=P»D-4,D£«F”C*C/3.00  _ _  ..  . . . 

Ri=-PSTAR/(3pD0»R) 

R=  (R^Rl ♦ (C/3,D0) ) 

P=r:>SDQT  (  (R<»<»?/4«Dn)  -C*R> 

PDsCDSORT (0.25D0«R»«2-F) 

AR?=,Sno®R®R-D 

®RD?  =  2.D0»P<»Pa  -  -  .  _ _ _ _  _ 

(  CDAPS  (  AR?»PP02)  aRTo  rnARS(  aRP^^PPO?)  )  PQ=»P0 
POr (CDARS (P) ) 

C  CAl  CIJLaT  I  MR  THE  /FROS 

AUlUn^O.O) 

RU  (R/P.DO)  ♦P 

n  =  (R/?.nO)  9P:3  .  _  _  _ 

X)  =  {«R1  ♦CDSDRT  IRl  o«?-4,nn»Al  «»C1)  )  /  (2»D0«Al  )  . 

X?:=  <-R)-.CDSORT  (Rl<><»?-4.D0»Al«Cn  )  /(P.DO^Al) 

R1 = (R/P.DO) «P 
Cl  s  iM/?,Dn)  ’‘01 

Xlr  {-Rl  9CDS(1RT  (Rl  ««>?-4.Dn<»Al  «C1  )  )  /  (29no«An 
X4=  (-R1  -CD5DRT  <Rl*<»P“4  ,r)0»Al«Cl )  )  /  (?.nO«Al  ) 
oeT.jRM 
C  CJRIC 

in  CDMTIMMf 

P=r- (R*tt2/3,n0) 

0  =  0“ <  R»r/3«^n) ♦((?. DOOM »«3) /?7«D0) 

71  =-  (0/P.DO)  ♦  (COSDRT  (  (U»ft?/4.()0)  ♦  (P«»3/?7,D0)  )  ) 
7?=-<0/?oD0)  “  (cnSoPT  ( (09<»?/4.noi  ♦  (P«»3/?7*r)0) ) ) 
T'^(CDARS(7n  .5«'.CDARR(7?)  )  7=71 
(CDqPS<72)  .RF.CDARRUI  )  )  Z  =  Z2 
T- (CDARS iZ)  ,P3«  0.0)Xl=-(R/3«n0) 

TP(CDARS(7)  .F3«  n,0)  X2=- (R/.3on0) 

TP- (PDA  RS  (7)  naO)X3  =  -{R/3enO) 

IP-(rDAPR(7)  -FQ.  O.OIRFTURN 
RRR=(Oon OflO^nO) 

CAI  L  CURRT (79RRR9R1 ) 

R  =  » (P/ (3«  00»RI )  ) 
wi=-(.R^0)9((3.nn«>«.S)/p.nn)^T 
W?  =  -U^D0)“((3.n0«^«R)/2.n0)«I 
XU-  (R/3e->0)  ♦Rl 
X?s-(R/3.D0)  ^W1 
X3  =  -  (R/3*D())  ♦»^2«RUWloR 
X  4  =  CI Mr  1 N 
R=*T  JRN 
C  ojadratic 
?n  Al=,R»n 

R  =  CD5DPT  (AU«?“C) 

X  1  =  A  I  ♦  P 

X2t:Al-P 

X3=riMF|N 
XArClMriN 
Rc-T  JRM 
C  Limfap 
30  XU-H 

X?=CIMr TN 
X3  =  C I MF  TN 
X4sC IMF  IN 
RFT  JRN 
FMD 


I l/RR/40 
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CUB9T  OATE  =  7BIS7  11/5^/40 

SJW^OUTIN-  CLiR'^KAA^RRfpR)  . 

T^PU'ICTT  C0MPLex«16(.A-Qjia»Z)  _ 

RP-AL»RM,HlA,Hn,HTH 

REAL*BPI»5S5S  _ _ _  _ _  ■ 

C0M3LEX<»1SI 

R90  CONTINUE  .  ...  . . . .  . 

I  =  (O.H.) 

II  =  1  . _ 

Zl=4A*nR 

7?=AA-«R  . . . . . . . 

iPtCOARSiZ?)  .GF*  COABSizi) ) A=Z2 

IF(C0ABS(7U  «GF.  COABS  (  7?)  )  A  =  Z  1 _  _  _ ^ _ 

R  =  nCONvjG{  A) 

.  Hl  A=lAtB) /2^D0 _ _ 

( A-B) /?.D0 

HtH=DATAN?(.H13jHLAJ . . . 

H=  (  Hi  A<>»Z<-H1R»«?) 

PI  =  1. 14159265358979300  _ _ _ 

5SSS=3.nO 

(  l.^rm/3^nQJ_l_4_C  JOCOSf_iHTH4i  T  L^l)  «^.DO»PT)/SS5SUI»f  PSTNf  mT 
1H«>  (T!-*n«?,r)0^Pl )  /SSSS)  )  ) 

RETURN.  . .  _ _ _ 

ENn 


\N  TV  r,  level  21  DREAI.  DATE  =  75157  11/58/40 

FUNCTION  OREALKCC) 

C0MPLEXttl6  CsCC _  _ _ 

REALf^R  ni?)  tOREAL 

equivalence  ICfO<l)  ) _ _  _ _ 

C=CC 

DREAL=n (1)  _ _ 

return 

END  .  _ _ _ _ _  - _ _ 


iN  TV  G  LEVEL  21 


OIMAG  ’  DATE  =  75157  11/58/40 


FUNCTION  OIMAG(TI) 
C0MPLFX»16  Mil 
REAL^H  0{?) 9DTMAG 

equivalence  IlfOd)) 

i  =  n 

DTMAG=n (2) 

RETURN 

end 
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A 

All 

Ai5 

Ai6 

Ai7 

Ai,Bi  ,Ci,Di,Ei 

E 

F 

k 

M 

M 

oo 

m 

nio 


m 


liic 


n 

P 

p 


NOMENCLATURE 

Area 

Solution  weighting  parameter,  Eq.  (25) 

Momentum  correction  coefficient  in  wall  crossflow  model,  Eq.  (7) 
Flap  correction  coefficient  in  the  flap  flow  model,  Eq.  (8) 

Weight  used  in  computing  test  section  pressure,  Eq.  (10) 

Arrays  of  coefficients  in  the  small  perturbation  equations 

Computational  error 

Function 

Flow  coefficient,  as  in  kf  and  kw 
Mach  number 

Steady,  asymptotic  test  section  Mach  number 
Mass  flow  rate 

Convenient  quantity  with  units  of  mass  flow  rate  defined  as 


•  /  "  1  rn 

Nondimensional  mass  flow  rate  defined  as  JL^  4—,  Eq.  (B-3) 

V  2  mo 

Nondimensional  mass  flow  rate  defined  as  m/ihc,  Eq.  (B-1) 
Convenient  quantity  w  ith  units  of  mass  flow  rate  defined  as 


Iteration  number 
Pressure 

Nondimensional  pressure,  P/Pq 
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R 

T 

t 

t* 

tp 

V 

Vi 

X,Y 

a 

y 

6f 

ei 

^Ae 

f 

^A  pe 

P 

T 

SUBSCRIPTS 

c 

ct 

d 

e 


Perfect  gas  constant 

Temperature 

Time 

Midpoint  of  a  time  interval 
Final  time  in  an  area  time  curve 
Volume,  as  in  Vp  or  Vts 

Scratch  variable  used  to  develop  small  perturbation  expansion,  Eq.  (27) 
Variables  in  numerical  reversion  procedure  (Fig.  10) 

I  jK 

Constant  defined  as  //  2  \t-i  jy  ,  Eqs.  (4)  and  (5) 

Ratio  of  specific  heats 
Flap  gap 

Array  of  small  perturbations  of  the  variables  from  the  exact  solution 
(Table  A-1) 

Perturbation  in  the  main  valve  area 

Perturbation  in  the  flap  area 

Perturbation  in  the  plenum  exhaust  valve  area 

Density 

Porosity,  percent  of  test  section  wall  area  drilled  out  to  allow  crossflow 

Charge  condition 

Charge  tube  (or  supply  tube) 

Diffuser  end  of  test  section 
Main  tunnel  exit,  main  valves 
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f 

Flaps 

i 

Array  index 

max 

Maximum  value  as  in  Ape^a^ 

n 

Nozzle  end  of  test  section 

P 

Plenum 

pe 

Plenum  exhaust 

pt 

Plenum  -  Test  Section 

t,  ts 

Test  section,  as  in  Pt  or  Ats 

tsw 

Test  section  wall,  as  in  Atsw ,  the  total  wall  area 

w 

Test  section  wall,  as  in  Aw,  the 

effective  flow  area 

0 

Stagnation  condition 

1 

Test  value  in  numerical  reversion 

(Fig.  10) 

SUPERSCRIPT 

*  Sonic  conditions 
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